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SOLVE PROGRAMMING PROBLEMS 
THE WAY YOU THINK. 





APL*PLUS®/PC 
IS THE ANSWER. 

The shortest distance between 
two points is a straight line. But 
unfortunately, that’s not the case 
in programming. 

Most languages require you to go 
through an enormous number of 
steps before an idea becomes reality. 

That’s why the APL* PLUS/PC 
System is such a dramatic and 
exciting software tool for serious 
PC programmers and application 
developers. 

Instead of requiring you to 
learn—and write—long-winded 
and complicated programs, APL is 
based on your instinctive ability to 
deal in symbols. And once you 
begin using APL’s quick notations, 
you'll find it the ideal programming 


environment for all your applica- 
tion needs. 

The incredible shortcuts you'll 
get with APL not only make you 
more productive, but make pro- 
gramming enjoyable. Intricate 
calculations and modeling on PC’s 
are asnap. You'll spend less time on 
drudgery, and more time creating. 

Only with APL * PLUS/PC, do 
you get: 

@ full-screen editing 

@ a built-in terminal emulator 

® communications 

@ graphics primitives 

e and report formatting. 

Writing time-consuming 
programs like sorting, ma- 
trix inversions, and string 
searching is eliminated. 
APL’s concise notation 
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already provides these. ..and more. 

No wonder a PC Magazine re- 
viewer enthusiastically reacted to our 
APL*PLUS/PC System with 
“awe and delight.” 

So will you. The complete pack- 
age price is $595 and major credit 
cards are accepted. 

Act now and we’ll send vou a free 
Convincer Kit. Contact your local 
dealer, or call 800-592-0050 (in 
Maryland, call 301-984-5123) to 
order your system, or for more in- 
formation about our other 
APL PLUS * WARE™ products— 
\4mq from our UNIX™ version 
to our new streamlined 
Pocket APL™ 

You'll see how symbol 
they are to use, the very first 
time you use them. 


Problem-solving at the speed of thought. 


APL * PLUS/PC System requires 192K. A i i i 
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Speed, Power, Price. 
Borland’s Turbo Pascal Family. 


The industry standard. With more than 250,000 users worldwide Turbo Pascal is the industry's de facto standard. 
Turbo Pascal is praised by more engineers, hobbyists, students and professional programmers than any other development 
environment in the history of microcomputing. And yet, Turbo Pascal is simple and fun to use! 


















Jeff Duntemann, P€ Magazine: “Language deal of the century... Turbo Pascal: It introduces a new 9 9 
programming environment and runs like magic.” Sy 
b creme 
Oo Dave Garland, Popular Computing: “Most Pascal compilers barely fit on a disk, but Turbo Pascal packs an editor compiler, linker, 


eemaisaees and run-time library into just 29K bytes of random-access memory.” 


Jerry Pournelle, BYTE: “What | think the computer industry is headed for: well documented. standard, plenty of good features, 
and a reasonable price.” 


Portability. Turbo Pascal is available today for most computers running PC DOS, MS DOS, CP/M 80 or CP/M 86. A XENIX verison of Turbo 
Pascal will soon be announced, and before the end of the year, Turbo Pascal will be running on most 68000 based microcomputers. 








High resolution monochrome graphics for the IBM PC and the Zenith 100 computers 


Dazzling graphics and painless windows. the Turbo Graphix Toolbox will give even a beginning programmer 
the expert's edge. It's a complete library of Pascal procedures that include: 


—Full graphics window management. 


—Tools that will allow you to draw and hatch pie charts, bar charts, circles, rectangles and a full range of geometric shapes. 
—Procedures that will save and restore graphic images to and from disk. 
35 —Functions that will allow you to precisely plot curves. 

Nh, * 








—Tools that will allow you to create animation or solve those difficult curve fitting problems. 
and much, much more 


No sweat and no royalties. You may incorporate part, or all of these tools in your programs, 


and yet, we won't charge you any royalties. Best of all, these functions and procedures come complete 
with commented source code on disk ready to compile! 
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The perfect complement to Turbo Pascal. tt contains: Turbo-Access, a powerful implementation of the state-of-the-art B+tree ISAM 
technique; Turbo-Sort, a super efficient implementation of the fastest data sorting algorithm, “Quicksort on disk”. And much more. 


— 


_ | Searching and sorting made simple 
N)3122, 


Exe 


Jerry Pournelle, BYTE: ‘The tools include aB+tree search and a sorting system; I've seen stuff like this, but not 
ee as well thought out, sell for hundreds of dollars.” 


: 


Get started right away: free database! Included on every Toolbox disk is the source code to a working 
data base which demonstrates how powerful and €asy to use the Turbo-Access system really is. 
Modify it to suit your individual needs or just compile it and run. 


Remember, no royalties! 


























From Start to Finish in 300 pages. turbo tutor 

is for everyone, from novice to expert. Even if you've never 
programmed before, Turbo Tutor will get you started right away. 

If you already have some experience with Pascal or another 
programming language, Turbo Tutor will take you step by step 
through topics like data structures and pointers. If you're an expert, 
you'll love the sections detailing subjects such as “how to use assem- 
bly language routines with your Turbo Pascal programs.” 
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the examples in the book on the accompanying fully Dese qurbo Toolbox 406 eee 
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gramming you'll ever need. 
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®@ While our specifications . 
certainly speak for themselves, 
we thought you still might like to 
hear from some of our users: 


w ‘Emerald Systems expands the 
potential of PCs by providing the 
ability to access large amounts of data 
online, quickly and reliably.” 

Terry Baptiste, Computerland, 

Lafayette, Ca. 


w “Service and support is great, which 
is an unusual experience. Emerald’s 
software for backup and restore is 
invaluable. Can't put a price on it. 
Productivity and efficiency has 
increased at least 50%!" 

Bruce Kittinger, Pinon Systems, 

Ft. Collins, Co. 


@ Runs like achamp with 3-Com 
Ethernet.” 
Alvaro Ramirez, Micro Age, Miami, Fl. 


m “... high capacity and flexibility. At 
last, atape back up we can count on. 
And the price is right!” 

John Acres, EDT, Las Vegas, Nv. 


@ “The speed at which you can back 
up is very impressive.” 

Jim McEwen, Mercy Hospital, 
Portland, Me. 


w “When Emerald says your unit will 
be there on Thursday, it's there on 
Thursday! Delighted we were able to 
exceed the usual 32 megabyte 
restriction.” 

Steven Mayer, Take One Company, 

New York, N.Y. 


@ “The Emerald 70 MB hard disk is 
extremely easy to install and work 
with. Emerald has a complicated 
piece of equipment made easy to 
use.” 

Tom Edler, Jewish Hospital, St. Louis, Mo. 


w “Our Emerald fixed disk installed 
quickly and easily. Emerald's reliable 
disk and tape backup further 
enhances LIBRAss high function 
accounting software.” 

Kenn White, Libra Programming, 

Salt Lake City, Ut. 
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HARD DISK 


We've broken through the 32 
MByte DOS barrier! 


Now you can create up to 240 
MByte databases on one file, with 
multiple volumes per disk drive. 
You get 14 times more storage 
with a 30% increase in 

access speed! 


And that’s not all: 


Expands up to 280 MB for as little 
as $56 per megabyte. 

6 expansion slots 

Up to 24 volumes 

Drive sizes: 40,70,140 

Internal or External 

Also for PC,XT, and compatibles 
Supports all PC compatible 
networks 

Simple menu-driven installation 


TAPE BACKUP 

V4" cartridge 

Vo" 9 track 

60 Megabytes 

No lost data from tape run out 
Backup and Restore Utility (BRU™) 
software included 
LAN Compatible* 


*FREE APPLICATION GUIDE: 
“IBM LAN Installation and 
Implementation.” 


Call (619) 270-1994, 
or write to 


Emerald™ Systems 
Corporation 

Mainframe Storage for Micros 
4901 Morena Bivd, 

San Diego, 92117 

TLX 323458 EMERSYS 
EASYLINK 62853804 

Distributed by Manchester Equipment of 

NYC, and selected Entre, MicroAge and 
Computerland stores. 

Emerald, BRU, Up Your AT, and Mainframe Storage 
for Micros are registered trademarks of Emerald 


Systems Corporation. IBM PC/XT/AT are registered 
trademarks of IBM Corporation. 





RISK FREE 


You get your 7th issue free when you 
order a year subscription (6 issues) for 
$16. Plus, if you're not delighted with 
Micro C after receiving your first issue, 
just drop a note and we'll refund your 


entire $16, no questions asked. 


Order # (503) 382-5060 
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Cover Artist 


Our cover “Fractal Dragon,” is the creation of Benoit Mandelbrot, Professor 
of the Practice of Mathematics at Harvard University. The most conspicuous 
characteristic of this dragon is that the eye and the imagination distinguish in 
it, in addition to the overall shape, an infinity of smaller features of every Size 
down to the infinitesimal. For geometric shapes of this kind, Professor Man- 
delbrot coined the term “‘fractal.” ‘Fractal Dragon” is a portion of “‘attrac- 
tor” that occurs in a problem of dynamics. The cover illustration is a repro- 
duction of Plate C5 of Mandelbrot’s book The Fractal Geometry of Nature 
(Freeman 1982), drawn using computer programs by Mark R. Laff and V. 
Alan Norton. Copyright 1982 by B. B. Mandelbrot. 


Referees Who Assisted With This Issue 


Ted Carnevale, State University of New York at Stony Brook 
Allen Holub, DDJ Contributing Editor 

Robert Tripp, Editor-in-Chief of the late MICRO 

James Woomer, Commodore-64 Guru and Gazebo Builder 





See Richard Rylander’s ‘‘Solid Shape Drawing on the Commodore 64” page 50. 
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EDITORIAL 








mane to this or any issue of DDJ: graphics and copy-protected disks. 

Frank Gaude regards the iconic interface of the Mac and its imitators as a 
regression to preliterate cave-scratchings. In his Z-News he says, “Long ago we 
used hieroglyphs to communicate. Then after a struggle an alphabet developed. 
Now we go back to pictures: icons. How many glyphs can we remember?” 

In the macaphony of the current iconolatry this cautionary message is wor- 
thy of attention, but I suggest that it’s not the whole story. The function of 
software is to realize metaphors. Icons are capable of doing that well but are 
no help in stepping outside existing metaphors to invent new ones; no help, 
that is, in developing new software. I would agree that icons are mnemonic for 
users and superfluous for programmers and let it go at that, but for the fact 
that I have recently seen a prototype of a system that takes icons a step 
further, a system in which actions can be assigned user-created visual tokens, 
and can be combined in ways that visually and kinaesthetically convey the 
form of the combination. Active, growing icons. 

Furthermore, while the Mac icons are static tokens rather than elements of 
a true language, that is not true of all computer graphic aids to communica- 
tion. French researchers are currently developing the means for transmitting 
sign language over telephone lines at commercial data rates. Their idea is to 
extract from a sequence of video frames just the essential components of a 
gesture and pass those along. This does not, I should make clear, mean match- 
ing the gesture to some template from a database of acceptable gestures; 
rather it means producing a real-time cartoon version of the gesturing party. 
The cartoons, subject to idiomatic and dialectical variations, are truly linguis- 
tic graphic elements, which is just what icons aren't. 

As for copy-protected disks .... 

“__ imagine yourself buying a new car. You have narrowed your choice to 
two cars, identical in all respects except that one will travel 100 mph and the 
other has a governor on it and cannot go past 55. Which car would you 
buy?”—Michael D. Brown, Central Point Software, producer of Copy II. 

“People can rest assured that...we will always offer versions of our products 
that are not copy-protected.“‘—Philippe Kahn, Borland International. 

“Companies like Multimate and Borland have the right idea. Lotus, 
Ashton-Tate and MicroPro are the bad guys.” —Edward Messerly, SF region- 
al administrator of the GSA. 

“a growing number of publishers are dropping traditional copy-protec- 
tion methods, which they conclude have created ill-will and inconvenience for 


want to comment on what others have been saying about two subjects ger- 


users.... Among the publishers who have abandoned copy-protection 
schemes is MicroPro.... Many software publishers, however, hope to see 
new protection methods... .”—Time/Life Access:Apple. 


“‘These people are nutty.” —Edward Messerly. 
Yes. Something is nutty when a vendor can brag about also selling non-broken 
goods. It’s really simple, isn’t it? Vendors of software who want to stay ven- 
dors of software must find ways to profit from their efforts without breaking 
the tools they sell. The ability to copy files and disks is a facility I bought with 
my hardware and operating system. To try to sell me a program designed to 
subvert my system and hamper its operation is to try to enlist me in vandalism 
against my own property. Even granting that copy-crippling is a morally de- 
fensible policy, how could anyone believe that it was commercially viable in 


the long run? Nutty. 


Michael Swaine 
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Another in a series of 
productivity notes on MS-DOS™ 
software from UniPress. 


Subject: Multi-window full 
screen editor. 


Multiple windows allow several files 
(or portions of the same file) to be 
edited simultaneously. Program- 
mable through macros and the built- 
in-compiled MLISP™ extension 
language. 


- Subject: Compiler for MS-DOS. 


Lattice C Compiler.is regarded as 
the finest compiler for MS-DOS and 
is running on thousands of 8086 
systems. 


Subject: Powerful Keyed File 
Access for MS-DOS... 


PHACT.ASAM is.a keyed.B +.'tree 
file manager providing easy access 
to.and manipulation of records in 

a database. | 


Trademarks of: Lattice, Lattice, Inc.: UniPress EMACS and MLISP. UniPress 
Software, Inc.; MS-DOS, Microsoft; UNIX, AT&T Bell Laboratories: Carousel Tools 
Carousel MicroTools, Inc.; PHACT, PHACT Associates; 8086, Intel: TI-PC. Texas 
Instruments; IBM-PC/AT, International Business Machines; DEC Rainbow/VMS. 
Digital Equipment Corp 


Features: 


@ Famed Gosling Version. 

@ Extensible through the built-in 
MLISP programming language and 
macros. 

@ Dozens of source code MLISP 
functions; including C, Pascal and 
MLISP syntax checking. 

@ EMACS-runsonTI-PC™ IBM-PC AT™ 
DEC:Rainbow™ or any other MS-DOS 
machine. Requires at least 384k. 

@ Aun Lattice® C or PsMake™ in 
the background and EMACS will 
point to any errors for ease of de- 
bugging. PsMake is a UNIX™-style 
“Make” utility to automate the proc- 
ess of building complex programs. 
@ Optional Carousel Tools: UNIX- 
like facilities including.cat, cp, cd, 
logout, Is, mv, pwd, rm, set, sh 
and.more. 


Features: 


@ Auns onthe IBM-PC™ under 
MS-DOS 1.0, 2.0 or 3.0 

@ Produces highly optimized code. 
@ Small; medium, compact and 
large address models available. 

@ Standard C library. 

@ PLINK— optional full function 
linkage editor including. overlay 
and:support. 


Features: 


@ Supports fixed and variable length 
records (1-9999 bytes). 

@ Up to 9 alternate indices are sup- 
ported. 

@ Record locking allows each record 
in.the database to allow multiple 
simultaneous updates. 

@ Records can be accessed on full 
or partial key. 

@ /ncludes full Lattice linkable library 
and high-level functions. 

@ Optional; PHACT-rg, a powerful 
and flexible report generator which 
provides a-high level, easy-to-use 
command language for formatting 
reports from existing PHACT data- 
bases..Available for UNIX, MS-DOS 
and.VMS. 


Price: 

EMACS $475 
One month trial 15 
Available for UNIX and VMS. 

PsMake 179 
Carousel Tools 149 
Full System 1,299 


Includes EMACS (object), 
PsMake, Lattice C, PHACT™ ISAM and 
Carousel Tools. 


Price: 
Lattice C-Compiler $425 
PLINK. 425 
Price: 
PHACT ISAM $250 
PHACT-rg 165 


Source Code available, call for:terms. 


~ For more information on these-and 


other UNIX.software products, call or 
write: UniPress Software, Inc., 2025 
Lincoln Hwy., Edison, NJ 08817. 
Telephone: (201) 985-8000. Order 
Desk: (800) 222-0550 (Outside NJ). 
Telex: 709418.. Japanese Distributor: 
Softec 0480 (85).6565. European Dis- 
tributor: Modulator SA (031) 59.22 22. 


OEM terms available. 
Mastercard/Visa accepted. 
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Software 


Your Leading Source for UNIX Software 






Anorexia Cured 


Dear DDJ: 
I read with some interest the article 
‘Fatten Your Mac’ that appeared in 
your January [1985, #99] issue and 
forthwith did a fattening on my Mac- 
intosh. There are a number of points 
that I would like to add to the article, 
however. Firstly, a fine supplier of the 
256K DRAM chips was omitted. I re- 
fer to Microprocessors Unlimited, of 
Beggs, Oklahoma, (918) 267-4961. I 
was able to phone them late Friday, 
and the chips they sent out on Mon- 
day arrived here (in Seattle) on Tues- 
day. I was quite pleased with the price 
and the service. They accept Visa, and 
they even sent a brief note explaining 
proper handling of the chips. 
Secondly, it is not necessary, 
though it may be desirable, to destroy 
the 64K DRAM chips. I desoldered 
the original chips with an Ungar 
model 2000 desoldering tool, and was 
able to remove the solder, let the 
board cool, then pry the chips from 
the motherboard, all without clipping 
a single lead. This damaged two 
printed circuit traces (pulled them 
off in the prying process); as the arti- 
cle recommends, there is a safer way 
to proceed. My technique cannot be 
advised in the absence of an excellent 
desoldering tool, or for those not con- 
fident in their abilitites to make 
printed circuit repairs. The article 
had so fired my enthusiasm that I 
yanked out the 64K DRAMs days be- 
fore the 256K DRAM circuits ar- 
rived. I was able to verify the repairs, 
and the removed memory chips, by 
installing sockets, plugging the 64K 
DRAMs into those sockets, and using 
the Macintosh. The nature of the lift- 
ed printed circuit traces (they showed 
copper color on the ICs to which the 
traces stuck) made detection easy, 


and no faults were missed. The board 
worked on the first try. 

Thirdly, the multiplexer can be in- 
stalled either piggybacked on another 
chip, or can be placed on a separate 
board, attached on the seven solder 
pads referred to in the article. Those 
seven pads include all logic signals 
and power required for the multiplex- 
er. I installed wire-wrap pins in those 
pads, made a small board for the 
multiplexer from .100-inch hole-grid 
breadboard material, and pushed the 
small board over the wire-wrap pins, 
wire-wrapping the connections atop 
it to hold it in place. I found this less 
tricky than the piggyback soldering 
job would have been, and no leads of 
the multiplexer needed to be bent. 

Fourthly, the multiplexer recom- 
mended is 74F253 or 74AS253; while 
these will do quite well, so will the 
74F153 or 74AS153; which are 
slightly less expensive; the only dif- 
ference is the nature of the DISABLE 
function, which (in this application) 
is always unused. All pin connections 
are identical to the °253. 

I found that the multiple-layer 
board, having extra copper in the in- 
terior layers, was rather more diffi- 
cult than most to desolder; I had to 
apply more heat (use a higher tem- 
perature on the desoldering iron) 
than usual, to complete the solder re- 
moval within a safe time. I did not 
notice any fragility of the printed cir- 
cuit (no more than most, at any rate), 
and my procedure was, as I have 
mentioned, rather stressful. At one 
point, I fumbled, and dropped the 
board onto the concrete floor—there 
was no damage. 

Prices were better than I expected, 
about $220 total cost for the chips, 
and that figure is dropping almost 
daily. Time required was almost ex- 
actly four hours. Since Apple charges 


AAA ADAP AAA 


about six hundred dollars more for 
the 512K Mac, it hardly pays to buy 
one; the fine folks in Cupertino are 
willing, in effect, to pay me hand- 
somely for those hours, if I convert 
my 128K instead. 

Instead of ‘Macintosh’ and ‘Fat 
Mac’, I will be using the terms *Mac- 
intosh’ and ‘Anorexic Mac’ in the 
future. 

Sincerely grateful, 

John Whitmore 

FM-15 Physics Dept., 
University of Washington 
Seattle, WA 98195 


Going PUBlic 


Dear DDJ: 

PUBlic files have been used success- 
fully on a wide variety of CP/M com- 
puters since the publication of our 
November 1984 [DDJ, #97] article 
“CP/M 2.2 goes PUBlic.” However, 
we want again to caution readers that 
PUBPATCH must be installed on an 
unmodified CP/M 2.2 BDOS! 

Several users have discovered that 
their Heath Co. CP/M 2.2.03 has 
been altered with a patch at 06E1 
and ODEE-ODF3 (relative to the 
start of the BDOS). The Heath patch 
causes the BDOS to stop building the 
disk group-allocation vector when it 
encounters the first directory entry 
having deleted data (E5) codes in 
both bytes 0 and 1. If PUBPATCH is 
then installed in this BDOS, the 
symptoms will be files that disappear 
from the end of the disk directory! 

Heath users with this problem 
should patch location 06E2h back to 
its original value ‘06D2h’ (relative) 
before installing PUBPATCH. 


RELATIVE ADDRESS 06E1’ 
ORIGINAL 2.2BDOS JZ06D2’ 
HEATH 2.2.03 BDOS JZ OEEE’ 
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Two readers have reported problems 
with PUBLIC.ASM, used to set or re- 
set the PUBlic file attribute bit. Up- 
dated code can be found in [Listing 
One (page 13)]. The first fix corrects 
a bug in v. 1.0 that prevents PUBLIC 
from setting the attribute for a very 
large file. The second takes care of a 
bug in the standard CCP (but not in 
ZCPR), which fails to restore the de- 
fault dma address before continuing 
to execute a SUBMIT file. 
No changes are required to PUB- 

PATCH itself. 

Sincerely, 

Bridger Mitchell, Derek 

McKay 

Plu* Perfect Systems 

Box 1494 

Idyllwild, CA 92349 


Turbo Bug 


Dear DDJ: 

I have been using Borland Interna- 
tional’s excellent Turbo Pascal com- 
piler for several months now (I start- 
ed with version 1) and I think it is by 
far the best implementation of any 
language I have every seen. The 
quick compiler and built-in editor 
have reduced the pain of correcting 
typos far enough to let me appreciate 
the virtues of Pascal. In the process I 
have discovered two things about the 
language that may be of interest to 
others. I am including listings of 
three short demo programs. 

First, the “‘initialized constants” 
mentioned briefly in both the refer- 
ence manual and the Turbo Tutor 
manual are really initialized static 
variables. This is clear from a close 
reading of either manual, but it is nev- 
er stated in so many words, nor do any 
of the example programs demonstrate 
it. Compiling and running the [pro- 
gram in Listing Two (page 13)] will 
demonstrate that the typed constant I 
in the procedure ShowStatic behaves 
exactly like a static variable in C. 

Compiling and running the pro- 
gram [in Listing Three (page 14)] will 
demonstrate a problem I discovered 
while trying to process the files pro- 
duced by a linker cross reference utili- 
ty. The Trunc and Round functions in 
both the MSDOS and CP/M versions 
of Turbo Pascal produce a run time 
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Are You In 
X/I£ZL Vet? 


The Ultimate Programmer's Editor 


some folks have already discovered it. And they threw their other 
editors away! Why? Because XTC is incredibly powerful. It’s also 
easy to learn, and easy to use. XTC has MORE editing 

facilities for LESS MONEY — 99 bucks 
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sete sake progr at pels UP to 80 charac 
ion keys 
‘em to function 


we 
ters long! TING — Standard a can 
KEYPAD EDITING you mavericks, 2 Sane, 
come from. But to do auto-Inde 


‘ arrows Wordstar com- 
efine those | Need Wo se 
rerormatting, the ee your Wordstar editing 
u 


‘hility? YO 
patibility: re. can 
commands Fae =~ All of your ey in the 
MULTITA ound or indepen’. you 
run in the foregr arate processes W 


ep 

background as Ss ) i 

continue editing. ee ees 
ae SE, WHILE, 

cONTRN, including = THEN EL 

ee os S— Your macros can use 


RIABLE : ut anything. 
EDITOR VA ‘ables to do Just EANS 2 nd 


You ' 
STRINGS, plus - - "More than you \| ever 


TEXT BUFFERS | ~_ 90 in fact. 





These windows are 
really great! You can 
see several files at 
once — even different 
parts of the same file. 
That means you've got 
declarations in front cf 
you while you're look- 
ing at the code that 
uses them! 

ls XTC protected? Heck 
no! We even give you 
the source on a disk for 





INTRODUCTORY OFFER 


Want to compare XTC with your editor? 
Just ask for our demo disk (only $5.00) 
and try it out. When you buy XTC, we'll 

knock five bucks off the price. 







XTC outperforms any other program- 
mable editor on all IBM /PC, /XT, and /AT 
computers (and true compatibles). XTC 
even works with your Sidekick and Turbo your recreation — 
Pascal from Borland! 7,000 lines of Pascal! 


To get your copy of XTC now, order 
it over the phone — we can ship it 
the same day! Or, you can send in 
an order, just like this one: 





XTC £7008 99 bucks Box 266 + Cheney, WA 99004 « USA « (509) 235-8088 
Shipping and Insurance..... 3.50 
VWWasn. res. add tax:......_... 7.99 pasa a a pes are oe . 
* . oriand, international. orastar is a trademark o 
Want it COD? Add this....... 1.65 MicroPro. Wendin and XTC are trademarks of Wen- 
TOTAL IT UP AND SENDIT QUICK! din, Inc. 
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Phoenix makes programmers’ dreams come true. With the 
best-engineered, highest performance programming tools 
you can find. A full line of MS™-DOS/PC DOS programs 
and utilities no other company offers. All designed to help 
you write, test and deliver the best programs possible. 
Top-of-the-line quality at a price you can afford. 


Finally, A Lint For MS-DOS. 


Now you can get the full range of 
features C programmers working in 
UNIX™ have come to expect from their 
Lint program analyzer. 

With Pre-C™ you can detect struc- 
tural errors in C programs five times 
faster than you can with a debugger. 
Find usage errors almost impossible to 
detect with a compiler. Cross-check multiple source files 
and parameters passed to functions. Uncover interface bugs 
that are difficult to isolate. All in a single pass. Capabilities 
no C compiler, with or without program analyzing utilities, 
can offer. In fact, Pre-C outlints Lint, since you can handle 
analyses incrementally. 

And, Pre-C’s flexible library approach lets you maintain 
continuity across all the programs in your shop, whether 
you use Pre-C’s pre-built libraries, pre-existing functions 
you already have, or some you might want to buy yourself. 

Plus, you’re not limited to one particular library, and 
Pre-C keeps track of all the libraries you’re using to make 
sure that code correctly calls them. $395. 





Special Thanks to Gasten Audrey of Framingham, MA. 


Pmate, Plink86, Pfix86 Plus, Pasm86, and Ptel are trademarks 
of Phoenix Software Associates Ltd. 











Programmers’ Pfantas 


Assemble Programs Twice As Fast. 


Pasm™ 86 assembles Masm files 2 to 
3 times faster than Masm 3.0. Pasm86 
supports 8086/88, 8087, 80186 and 
80286 processors. 

With Pasm 86’s built-in defaults, you 
can write code quickly since you won t 
spend hours learning all the control 
statements needed at the beginning of your program. You 
can define symbols on the command line. Decide whether 
you want error messages or not. And, put local symbols 
within procedures. $295. 


eave Still Fixing Bugs The Hard Way? 


Pfix™86 Plus, the most advanced 
symbolic debugger on the market, 
eliminates the endless error searches 
through piles of listings. Locate in- 
structions and data by symbolic name, 
using symbolic addresses. Handle 
larger, overlayed programs with ease. 

An adjustable multiple-window display shows source and 
object code and data, breakpoint settings, current machine 
register and stack contents simultaneously. An in-line as- 
sembler allows program corrections directly in assembly 
language. Powerful breakpoint features run a program full 
speed until a loop has been performed n times. 

With a single keystroke you can trace an instruction and 
the action will be immediately reflected in source, object, 
data, stack, and register windows. Another key begins a 
special trace mode that executes call and loop instructions at 
full speed. Designed to work with both Plink86 and MS™ 
LINK linkage editors. $395. 


MS-DOS, and MS LINK are trademarks 
of Microsoft Corporation. 





es by Phoenix. 


Get The Lead Out 
Of Binary File Transfer. 


Ptel™ is the universal binary file 
transfer program for MS-DOS 2.0 or 
3.0. You can move binary files fast and 
accurately. Upload or download groups 
of files from Bulletin Boards or remote 
computers. Move files between dissim- 

) — ilar machines and operating systems. 
Ptel’s advanced binary protocol, Telink, offers better- 
than-Modem7 accuracy and performance. Faster transfer 
speeds. An on-screen update of error correction, blocks, 
transferred, and time to complete. 

Includes popular Modem7 and XModem protocols. With 
Checksum or CRC. Plus Kermit and ASCII. $195. 


Maximize Your Program’s 
Efficiency. 


Pfinish™ delivers the fastest running 
programs possible. This performance 
analyzer lets you ‘‘zoom in’’ on the 
inefficient parts of your program. 
Whether written in assembly language. 
C. Pascal. Fortran. Even Basic. Unlike 
profilers available today, Pfinish under- 
stands the structure of your program and reports the amount 
of activity and time spent in its subroutines or functional 
groups. Pfinish analyzes both overlaid and memory resident 
programs. Down to the instruction level. Reports are dis- 
played. Stored on disk. Or printed out. In tabular form or 
histograms. 

Do a dynamic program scan. Identify the most frequently 
executed subroutines. Find inefficient code that costs your 
program valuable time. Rank subroutines by execution fre- 
quency. $395. 





tL 





Pre-C and Pfinish are trademarks of Phoenix Computer Products 
Corporation. UNIX is a trademark of AT&T Bell Laboratories. 
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Why Work With A Primitive 
Editor? 


More than a powerful editor, 
Pmate™ is a text processing language. 
An emulator of other editors. A lan- 
guage-specific editor for C, Pascal, 
and Fortran. Pmate™ can even run in 
the background! 

: — You get full-screen, single-key edit- 
ing. Ten editing buffers. Horizontal and vertical scrolling. 
A “‘garbage stack’’ buffer. A built-in macro language with 
variables, control statements, radix conversion, tracing and 
120 commands that you can group and execute with a single 
keystroke. $225, 


Why Squeeze Your Program 
More Than You Have To? 


The Plink™86 overlay linkage editor 
brings modular programming to 8086/ 
88-based micros. Write large and 
complex programs without worrying 
about memory constraints. Work on 
= = modules individually, link them into 
executable files. Use the same module in different programs. 
Changes the overlay structure of an existing program without 
recompiling. Use one overlay to access code and data in 
other overlays. 

Plink86 links Intel-format modules. $395. 


Call (1) 800-344-7200. In Massachusetts (617) 762-5030. 


Or, write. 


Phoenix Computer Products Corp. 
1420 Providence Highway Suite 115 
Norwood, MA 02062 
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Debugging Bugging You? 
Torpedo program crashes and debugging delays with 
debugging dynamite for the IBM PC ... 







UP PERISCOPE! 


First, you install the hardware. 


The hardware’s a special memory board 
that fits in a PC expansion slot. Its 16K of 
write-protected memory contains 
Periscope’s resident symbolic debugger. No 
runaway program, however berserk it may 


be, can touch this memory! ~ Lee 2 


Then you UP PERISCOPE. 


Use Periscope’s push-button break- 
out switch to interrupt a running 
program ... even when the system’s 
hung! Periscope supports Assembly, 
BASIC, C and Pascal. In addition to the 
usual debugging capabilities, some of 
Periscope’s features are: 


Stop your system in 
its tracks at any time. 


__Use symbol names instead 
: of addresses. 


Run a program on one monitor and 
debug on another. 


Monitor your program’s execution 
with Periscope’s comprehensive 
breakpoints. 


Debug memory-resident programs. 


Put your time to better use. 


The Periscope system is $295. It carries a 30-day money-back 
guarantee and includes the memory board, remote break-out 
switch, debugger software, 100-page manual, and quick- 
reference card. The memory board is warranted for one year. A 
demonstration disk is $5.00. 


System requirements for Periscope are an IBM PC, XT or 
Compaq, PC-DOS, 64K RAM, 1 disk drive and an 80-column 
monitor. For MasterCard and Visa orders only, call 800/421- 
5300 (ext. R96) 24 hours a day. For additional information, call 
404/256-3860 from 9 AM to 5 PM Eastern Time. 


Get your programs up and running; 


uP PERIS E! 


Data Base Decisions / 14 Bonnie Lane /Atlanta, GA | 30328 
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error if you attempt to convert a real 
value of — 32768 (8000H). Since this 
is a legal integer value, and right in 
the middle of the range of hex num- 
bers, I think this has to be called a 
bug. | 
Listing Four (page 14) shows one 

way of programming around this 
problem. It works just fine when using 
real numbers and integers to represent 
hex numbers between 0 and FFFFH, 
but it would not be very useful in an 
application that requires both positive 
and negative real numbers. 

Sincerely, 

William Ames 

8720 Topanga Cyn. Blvd. #8 

Canoga Park, CA 91304 


Borland assures us that this bug will 
be fixed in Version 3.0 of Turbo Pas- 
cal.—Ed. 


Fast Hartley Transform 


Dear DDJ, 

We were pleased to see Ron UIl- 
mans’s letter in the December 1984, 
issue of Dr.Dobb’s Journal regarding 
the Hartley Transform and the ac- 
companying listing of a software pro- 
gram. We, too, consider its advan- 
tage to be great. 

Your readers may wish to know 
Stanford University has proprietary 
rights on this technology, developed 
by Professor Ronald N. Bracewell. 
Patent rights are pending. 

Use of the software without a li- 
cense may be an infringement of those 
proprietary rights. However, a license 
under reasonable terms to the technol- 
ogy is available from Stanford. 

Incidentally, we have called this de- 
velopment the “Bracewell” transform, 
in recognition of Professor Bracewell’s 
fundamental contribution. 

Sincerely, 

Lisa Kuuttila 

Consulting Associate 

Office of Technology 
Licensing 

Stanford University 


DDJ 
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L e t t Crs (Text begins on page 8) 
Listing One 


; UPDATE PATCHES FOR PUBLIC.ASM 
vers equ 1$2 supdate PUBLIC.ASN version number 


. fix 1. Insert the following code in the. 'SAHEXT' routine 
immediately preceeding its 'ret' instruction, 


rnz y. Mlt ea 
inx h ; extent is 0, check overflow (s2) ext. 
inx h 
mov a,in 
ani 7Fh 
9 
ret ; end of SAMNEXT routine 


fix 2. Insert the following macro statement at the label 'xit:' 


xits dobdos dmafn,80h ;restore default dma for SUPMIT under ccp. 
eT Tie 
lspd ustack 
PEGs. --.. End Listing One 


Listing Two 


TURBO PASCAL Program Lister, Copyright 1983 Borland {nternaticnal 
Listing of: STATIC. PAS 


pragram TestStaticVariables;: 

{ This program demonatrates that the "tyced constants" of Turba Pascal + 
{ are really static variables. Each time the main imap calls ShowStatic } 
{ the typed censtant I is incremented by 1. When ShowStatic is called } 
{ again the incremented value is written to the CRT. } | 


Var 
Cn Chars 
I : integer; 


precedure ShewStatic; 
{ This prints and then increments the “constant” { } 
canst 

Io: integer = @; 


bean 
Writelrn(I) ; 
WS ee oe 
end; 


Fumcticn UseHeap(l : integer) : inteoer: 
{ This is included ta demeanstrate that the tyoed constant above is mot } 
{ distreyed when another oracedure uses the heap or stack. } 


var 

I : integer; 

J os “inteners 
begir 

ios. -Ls 

new (ds) 3 

J 3 5 

Lo Pe aw dy 

a i! SoS then 

L := Usehtleap(lL); 


Dispose(J); 
UiseHeap := L. 
end; 


(Continued on next page) 
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L e f f ers (Listing Continued, text begins on page 8) 
Listing Two 


begin 
repeat 
read (Kbd, Ch); 
I = UseHeanp (li): 
SheawStatic; 
Until Ch = -#123% 
end. End Listing Two 


Listing Three 


TURBO PASCAL Prenram Lister, Copyright i953 Borland Internaticnal 
Listing of: CNVRT1. PAS 


pregram RealTaIntegert: 
{ This pregram can be used ta demenstrate a oreblem in 
{ corverting real numbers ta integers. } 


var 

Nmbr : real; 

I : integer: 
beain 


Readln (Nmbr) 3 
{ if Nmbr = 32768. the follewing produces a runtime errar } 
if (Nmbr >) 65535.@) or (Nmbr ¢ @ then 
{ I am only interested in the range of 4 digit Hex numbers + 
Writeln(’ averflaw errar’ ) 
else begin 
if Nmbr ¢( 3¢£768.@ then 
Ios= Trane (Nmbr) 
else 
I s= Trene (Nabr — 65536. @) 3 
Writeln(I): 
erd s 
end. End Listing Three 


Listing Four 


TURBO PASCAL Program Lister. Capyright 1983 Borland Internaticnal 
Listing of: CNVRT2. PAS 


pragram RealTecintegere};3 
{ this shows one way around the bug demastrated in versian 1 } 


var 

Ninbrr os reals; 

i : integers 
beoin 


Readln(Nmbr) 3 
{ 32768.8 is converted carrectiy by the followiria cade + 
if (Nmbr > 65535.8) or (Nmbr ¢ @) then 
{ I am only interested in the range of 4 dioit Hex numbers } 
Writeln(? averfluw errar’ ) 
else bedqin 
if Nmbr ¢ S32768.4 ther 
Io s= Trune (Nmbr) 


else 
benir 
I s= Trune (Nbr: — 65555. 2's 
Seer et Ae 
erid; 
Writeln(I)s 
eric § 
end. 


End Listing Four 
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The Macintosh 
Software 

Library 

just got fatter... 


It’s about ZN 
TIME. 

AND SPEED. 

FASTER COMPUTER OPER- 
ATION with disk operations 2 to 
5 times faster. 


QUICK PROGRAM TRANS- 
FER FROM OTHER CP/M 
using built-in 
standard 


COMPUTERS 
transfer utilities and 
CP/M file structure. 


RUNS BIGGER MORE POW- 
ERFUL PROGRAMS with 52K 


transient program area available 
on 128K Mac, 300K available on 
512K system and the capability is 
built-in to manage up to 16 
Megabytes of RAM. 


PLUG-IN WHAT YOU NEED 
...CP/M for the Macintosh sup- 
ports up to 2 printers and 16 
Drives of 512,000,000 bytes each 
for a maximum of 8 Billion bytes 
of storage. 


MORE DISK SPACE AVAIL- 
ABLE ... each disk drive has 360 
bytes available, often eliminating 
the need for additional drives. 


CHOOSE ANY PRINTER let- 
ter quality or dot matrix ... any 
serial printer will work just fine. 


MEDIA PROBLEMS?...NONE 
... all that is needed to transfer 
programs from 5% to 3% is a 
modem transfer program to 
operate with our Modem 7 Com- 
munications Compatible Program 
... this enables programs to be 
transferred from XEROX, 
OSBORNE, HEATHKIT, 
KAYPRO, RADIO SHACK 
and others. 
























THE 10 FEATURES: 


pond, 


SINAN 





UNLIMITED 
EXPANDABILITY is 
made possible with the 
total and easy control of 
serial expansion ports 
which allows many forms 
of plug-ins. 


UTILITIES ... such as STAT, 
PIP, DDT, ED, LINK68, INIT, 
NM68, SIZE, LO68, RELOC, 
and AS68. 


AND We are currently compiling 
a vast Library of CP/M software 
that can be ported over to the 
Macintosh and our Macrolibrary 
will also be available soon. 


NEED POPULAR WORD 
PROCESSING PROGRAMS? . 
Run WORDSTAR® 
DBASEII® AND other CP/M 
(8080) 2.2 Programs with our 
EM80 Emulator .. ONLY $195.! 





With CP/M FOR THE MACIN- 
TOSH the Macintosh Software 
Library just got fatter! 


Call or write for your Macintosh 


. 6 Disk System CP/M Software Catalog. 


. Documentation from Digital Research 
and I.Q. 

. MacroAssembler (no extra charge) 

. Modem 7 Compatible Communications 
Transfer Program (no extra charge) 

. C Compiler (no extra charge) 

. Text Editor (no extra charge) 

. Menu Program (puts menus on your 
programs) (no extra charge) 

. Standard Printer Driver 
charge) 

. Copy Program (no extra charge) 

. Leir-Seigler ADM3A Terminal Emula- 
tion Program (no extra charge) 


All This For Only 
$395 Retail 





ir Nn 
l 

4 @} 
# 


i . software. 


I.Q. Software 

2229 E. Loop 820 N. 
Ft. Worth, Texas 76118 
(817) 589-2000 


(no extra 





Macintosh is a registered trademark of Apple Com- 
puter, Inc. CP/M is a registered trademark of Digital 
Research, Inc. WORDSTAR is a registered trademark 
of Micropro. DBASE II is a registered trademark of 
Ashton-Tate. ©1985 I.Q. Software 
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DR. DOBB'S CLINIC 





by D. E. Cortesi 
Welcome, Microans 


It seems that DDJ has picked up a 
batch of new readers, the erstwhile 
subscribers to the late, lamented Mi- 
cro. Let’s recap the purpose of this 
column for their benefit. It’s sup- 
posed to be “‘a place for the display of 
techniques and discoveries.” That’s 
what we said the first time it ap- 
peared, in May 1981. Also, “We'd 
like to tell of unobvious uses for stan- 
dard utilities. We want to uncover er- 
rors in documentation, to warn peo- 
ple away from pitfalls, and to show 
off those ‘Eureka!’ moments that 
make systems work rewarding.” 

For a long time, most of the contri- 
butions to the Clinic involved CP/M 
and the Z80. Nowadays, we hear 
more from MSDOS/8086 users. 
Well, stand back, Zilog lovers; make 
room, Intel-lects! Now we have 
among us people who understand 
real computers like the 6502, the 
6809, and the 68000 and real operat- 
ing systems like OS9, SOS, and PRO- 
DOS. We can barely wait for the neat 
contributions they'll be sending in. 
Soon. 


Wood Blocks 


As bait for the Micro readers (hey, 
folks, we really like reader contribu- 
tions here), we present our wood 
blocks program for the Atari. It’s a 
little thing (see Listing at right) that 
we ran up one day while experiment- 
ing with the start, select, and option 
keys. These three keys control the 
three lowest bits of a byte in the Atari 
address space. The program samples 
that byte, and each time the combi- 
nation of operated keys changes, it 
emits a heavily damped klonk at a 
different pitch. Play it by mashing 
down all three keys and then sort of 
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working your fingers around. 

The simulation of damped tones is 
pretty good. Experiment with the 
damping factor and with the expres- 
sion that generates a note value from 
the key combination. 


Roll Over, Keyboard 


We’ve an interesting letter here from 
Charles Davis, who lives in a town 
with the delightful name of Flower 
Mound, Texas. Besides submitting 
some throughput timings for an Atari 
system (at last!), he’s been studying 
keyboards: 

‘Perhaps you could survey another 
area of concern. I am either a very 
good typist or a very sloppy one! | 
need a keyboard with what used to be 
called ‘N-key rollover.’ These are 
hard to find. The current generation 
of computers and terminals does not 
seem to supply this feature. Most 
marketing and sales people ... are 
unaware of the feature and therefore 
the sales literature does not mention 
it, even when it is present. 

‘A survey of the popular computers 
and terminals with reference to roll- 
over would be interesting to me and, I 


10 REM WOODBLOX FOR ATARI, 


20 KEYBYTE=532¢/9 
: DAMPING=0.29 


think, to many of your readers. My 
procedure for checking rollover is to 
depress several keys in sequence, hold- 
ing each until all are depressed, then I 
lift them all in the same order. I ob- 
serve what happens on the screen. 
There seem to be three types of re- 
sponse: 


¢ the first N keys (type 1) 

e the last N keys (type 2) 

e only the first and last keys 
(type 3) 


The major variable is how big N is. 
Rarely must I find a helper with more 
fingers. One terminal manufacturer 
admitted that their terminals had N- 
key rollover and that N was supposed 
to be 5, but some key sequences did 
not work right so they would only 
guarantee N to be 3. This points up 
the weakness of my procedure: I do 
not do an exhaustive check and some 
problem characters may be missed. 
Without knowledge of the key matrix 
and the scanning algorithm, it would 
take too long to find the problems.” 
Davis sent along the results from 
some terminals he’d tested (see Table 
1 on page 17). However, our first at- 


D.E. CORTESI 


30 SAMPL E=PEEK (KEY BY TE) 
: IF SAMPLE=BUTTONS THEN GOTO 30 


40 BUTTONS=SAMPLE 


PI TCH=1 2* ( 8-S AMPLE) 


: VOLUME=15 
50 SOUND 0O,PITCH, 12,VOLUME 

: VOLUME= VOLUME-VOLUME *DAMPI NG 

: IF VOLUME >= 1 THEN GOTO 50 
60 SOUND 0,0,0,0 

; GOTO 30 
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Terminal 

ADDS Regent 20 

ADDS Viewpoint 

Appollo DN600 Workstation 
Atari computers 

CHT 1O7E 

Daisy Logician Workstation 
-Hazeltine 1410 
Heath/Zenith 19 and 29 
HP-85 

HP-9816 

IBM PC/XT 

Perkin-Elmer Bantam 550 
Soroc 1Q-120 
—Televideo 950 

Wyse 50 


Command 
Code 


Type of 
Driver 
either 
block 
block 
either 
either 
character 
character 
character 
either 
either 
character 
character 
either 
either 
either 
either 


OAaAnN OA fPWN—O 


Rollover 
N > 10 
type 1 N> 10 
type 1 N> 10 
type 3 n.a. 
type 1 N= 2 
type 1 N> 10 
type 3 n.a. 
type 4 N=2 
type 3 n.a. 
type 1 N> 10 
type 1 N> 10 
type 1 N=3 
type 3 n.a. 
type 1 N= 
type 1 N=3 


Response 
type 1 


Table 1 
Charles Davis’ survey of the number of keys that can be 
“‘rolled over’’ on different terminals. Types are: 1, first N keys; 
2, last N keys; 3, first and last only; 4, first N keys then 
garbage. 


Operation 


initialize 

media (sic) check 

build Bios Parameter Block 
lOCTL input call 

input 

nondestructive input no wait 
input status check 

input flush 

output 

output with verify 

output status 

output flush 

lOCTL Output call 

notification of file-open 
notification of file-close 
lIOCTL query: removable disk? 


Table 3 


The command codes to which an MSDOS device driver must 
respond, omitted from IBM's DOS Technical Reference man- 


uals. Codes 13, 14 and 15 are new with PCDOS 3.0.—Codes 3, 


12 and 15 are passed only to drivers that indicate IOCTL 
support in their Device Header Attribute word. 
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program editing and technical writ- 
ing. It gives you every editing func- 
tion you expect, plus it can: 
e Edit multiple files of any size 
© Compare files 
e Be fully customized 
e Perform arithmetic computa- 
tions 
e Be expanded with print format- 
ting & spell checking-correcting 


The power of VEDIT PLUS lets you 

increase your productivity with: 

e Numeric, relational, and logical 
functions 

e If-Then-Else decision making 

e Easy file handling 

© The ability to create prompts for 
user input and menus 

e Special programming features 


Expect a lot from VEDIT PLUS. 
It’s small (23K), fast and it’s from 
CompuView - nationally recognized 
for user support. 
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tempt to test a keyboard produced a 
new result that you should watch out 
for: 


e the first N keys plus a garbage 
key (type 4) 


This is the H19 problem we reported 
here in August 1982; it results from a 
lack of blocking diodes in the key ma- 
trix. Heath hasn’t learned anything 
since, either. On our Heath/Zenith 
29, holding L, I, and then S produces 
‘“TIQS” on the screen. We have to be 
very precise typing the word “‘list” or 


it comes out “liqst.”” Worse, some - 


combinations produce false function 
keys. The combination E, I, then P 
generates a false down-arrow (es- 
cape-B) sequence, for instance. So 
the H/Z29 is an N=2 machine, even 
though for some key combinations it 
will pass Davis’ test as a type 1 with 
much higher N. Incidentally, the 
good combinations occur on the 
home row. That suggests that you 
might apply Davis’ test on the top or 
bottom rows. 


Charting DOS 


We’ve been boning up on MSDOS 
and PCDOS lately, in preparation for 
writing a book and we’ve compiled 
the chart of DOS services that ap- 
pears in Table 2 (page 19) as a study 
aid. For each possible Int 21 service it 
shows the request number in decimal 
and hex, the releases that support it, 
and a capsule description of the ser- 
vice. The services are organized into 
groups by function. The groups and 
the services within the groups are 
generally in ascending order by re- 
quest number, but functional rela- 
tionships are given precedence. 

The idea is that you can look for 
the service you need by scanning a 
small group of related ones. The cap- 
sule descriptions are just enough to 
differentiate between similar func- 
tions. Having found the service you 
need, you can access its detailed de- 
scription in your DOS manual 
through its request number. 

Our study of PCDOS has been im- 
peded no small amount by the poor 
quality of the IBM DOS manuals, es- 
pecially those for DOS 3.0. For one 


example, the documentation on ser- 
vice 56/38h (get or set country-de- 
pendent information) is so badly 
done that we honestly cannot make 
sense of it. If you are a reader who 
can write a comprehensible, accurate 
description of the DOS 3 version of 
service 38h, please do so and send it 
to the Clinic. 

For another example, the chapter 
on device drivers omits any specifica- 
tion of the command codes to which a 
device driver is supposed to respond. 
In the DOS 2.1 manual you could still 
cull the essential information from 
the comments of a sample program. 
In DOS 3.0, the sample program has 
been dropped from the manual. The 
book says just enough that you can 
infer that command codes 3, 4, 8, 9, 
and 12 specify input or output, but 
there is no way you can tell which 
code calls for what action! 

Fortunately, the missing informa- 
tion can be found in Microsoft’s ver- 
sion of the technical manual, from 
which we constructed Table 3 (page 
17). Although some command codes 
are specific to character or block de- 
vices, it seems wisest for all drivers to 
expect all command codes. They can 
treat the unwanted ones as null oper- 
ations, or they can reject them with 
the “unknown command” error code. 


DD} 


Reader Ballot 
Vote for your favorite feature/article. 
Circle Reader Service No. 190. 
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Service number in decimal and hex 
Appearsin whichreleases | 
Functional group 


ee eer 
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Capsule description 


0/00 1/2/3 program cntrl end program (requires PSP *CS) 
49/31 ~— (2/3 program cntrl end, stay resident, AL=ret, DX=size 
76/4C 2/5 program cntrl end program, AL=ret 
38/26 1/2/3 program cntrl § make daughter PSP at (DX:00) 
75/4B —/2]/3 program cntrl (AL=OQ) load, run daughter from path *DS:DX 
77/4D —/2/3 programcntrl get AH=term code, AL=ret of daughter 
75/4B —/2/3  programecntri (AL=3) load DS:DX —->path as overlay 
98/62 —/—/3  programcntrl get BX=paraddr of my PSP 
48/30 —/2/3  systeminfo get DOS version number 
42/2A 1/+/3 system info get CX=year, DH=mo, DL=day (2,3:AL=dow) 
44/2C 1/2/3 system info get time as CH:CL:DH.DL 
_§1/33 —/2/3 system info (AL=O0) get Break switch in DL 
53/35. —/2/3 system info get int(AL) vector to ES + Bx 
56/38 —/2/+ system info (AL=OO) get country-dependent info 
72/48 —/2/3 system info (BX =FFFF) get size available RAM to BX 
89/59 —/—/3 system info get extended error to AX, BH, BL, CH 
3//25 1/2/3 system control set int(AL) vector to (DS + DX) 
43/2B 1/2/3 system control set date from CX, DX 
45/2D 1/2/35 system control set time from CH:CL:DH.DL 
51/33 —/2/3 system control (AL=0O1) set Break switch from DL.O 
56/38 —/—-/3 system control (??) set country-dependent info 
72/48 —/2/3 system control allocate BX paragraphs 
73/49 -- (2/3 system control return RAM from ES=paraddr 
74/4A —/2/3 system control resize ES=paraddr to BX paras 
1/01 1/2/3 kbd/handle O get key: wait, echo, break-check 
6/06 1/2/3 kbd/handleOQ  (DL=FF) get key: noecho, nowait, nobreak 
7/Q7 1/2/23 kbd/handle O get key: wait, noecho, nobreak 
8/08 1/2/3 kbd/handle O get key: wait, noecho, break 
10/OA 1/2/3 kbd/handle O buffered line input with editing 
11/0B 1/2/3. — ~kbd/handle O test if key available (break) 
12/0C 1/2/3 kbd/handleO _ flush buffered keys, then do (AL) 
2/02 1/2/3 scrn/handle 1__ put DL with editing and break-check 
6/06 1/2/3 scrn/handle 1 (DL < > FF) put DL, noedit, nobreak 
9/09 1/2/3 scrn/handle 1 _ iterate DOA 2 over *DS:DX to $ 
3/03 1/2/3 aux/handie 3 get byte from COM1 
4/04 1/2/38 aux/handle 3 put byte to COM1 
5/05 1/2/3 prt/handle 4 put byte toLPT1 — 
20/19 1/2/3 disk info get AL=default drive 
47/2F — /2/3 disk info get Disk Transfer Address to ES:BX 
27/1B 1/+/3 disk info get FAT *DS:BX (2,3: only 1st byte of FAT) . . 
28/1C ~/2/3 disk info .. andCxX=bytes/sec AL=sec/unit DX =units/disk 
54/36 —/2/3 disk info BX =free units, CX/DX/AL as for 1C 
84/54 12/3 disk info get write-verify switch to AL.O 
Table 2 
Chart of DOS Services (Continued on next page) 
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(Continued) 


13/0D 
44/08 
—26/1A 


46/2E 


15/OF 
16/10 
17/41 

18/12 
19/13 
22/16 
23/17 
35/23 
36/24 
40/28 
41/29 


20/14 


21/15 
33/21 
34/22 
39/27 
40/28 


5/7/39 


58/3A | 


59/3B 
71/47 


63/3F 
64/40 


60/3C 
91/5B 


90/5A 


61/3D 
62/3E 
65/41 
66/42 
67/43 
67/43 
69/45 


70/46 — 


78/4 
79/4F 


86/56 
S7/57 
87/57” 


92/5C 
92/5C 
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1/2/3 
1/2/3 


(1/2/3 
lee 

A273 

A72/3 


1/2/3 


| 1/2/38 


1/2/32 
1/2/3 
1/2/3 
1/2/3 
1/2/3 
1/2/3 


+ 1/+/3 


1/2/3 
1/2/3 
1/2/38 
1/2/32 
1/2/3 
1/2/3 
—/2/3 
{2/3 
{2/3 
-/2/3 
—/2/3 
lela 
(213 
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pop 


lait 
7 /2[3 


— (2/3 
—/2/3 
(2/3 


~ (2/3 


—/2/3 
[2/3 
— (2/3 
—/2/3 
(413 
—/2/3 
(2/3 
—1-/3 
“1-13 


disk control 
disk control | 


disk control 


disk control 


fcb control 
fcb control 
fcb control 
fcb control 
fcb control 
fcb control 
fcb control 
fcb control 
fcb control 
fcb control 
fcb control 


fcb i/o 
fcb i/o 
fcb i/o 
fcb i/o 
fcb i/o 
fcb i/o 


directories 
directories 
directories 
directories 


file i/o 
file i/o | 


file control 
file control 
file control 
file control 
file control 
file control 
file control 
file control 
file control 
file control 
file control 
file control 
file control 
file control 
file control 
file control 
file control 
file control 


reset disk system 

select drive, return count of drives 
set Disk Transfer Address = DS:DX 
set write-verify switch from AL.O 





open file from FCB 

close file from FCB 

scan current directory for first match = ——r—“—eO_OCr—sSsS 
scan current directory for next match + 
erase files matching FCB  — 

make new file from FCB 

rename file from FCB 

get size of file to feb a =.= 
set relrecno from current file position . 
(CX = 0) trunc or stretch file to size ss 
parse filespec *DS:SI into fcb *ES:DI 


read next record to DTA 

write DTA to next record 

read record at direct address 

write record to direct address 

block read CX records to DTA 

(CX > O) block write CX records from DTA 


make directory for path *DS:DX 

erase directory at end of path *DS:DX 
set current path as path *DS:DX 

get current path of DL=drv to DS:DI 


read CX bytes from BX =handle to DS:DX 
write CX bytes toBX=handle fromDS:DX © 


create/trunc file (path *DS:DX, CX =attr) 

create new or fail (path “DS:DX,CX=attr) —© 
create unique file (path *DS:DX, CX=attr) 

open file (path *DS:DX, AL= access type) 
close file (BX =handle) 

erase file (path *DS:DX) 

seek (BX= handle, AL=method, CX +DX= etcen 
(AL=O) get CX=attr of file path *DS:DX : 
(AL= 1) set attr of file path *DS:DX to CX 

create a duplicate file handle 

force a handle to be a duplicate 

search 1st match to path *DS:DX 

search next match to path *DS:DX 
rename/move path *DS:DX to path *ES:DI 
(AL=O) get CX=time, DX =date of path *DS:DX 
(AL= 1) set CX=time, DX = date of path *DS:DX 
(AL=0) at CX +DX in BX=hdl, lock SI+ DI bytes 
(AL= 1) release bytes locked by prior call 


Table 2 
Chart of DOS Services 
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REALIZABLE FANTASIES 






by D. E. Cortes 


The publishers of DDJ recently 
threw a party to celebrate the 100th 
issue of the magazine. It was a 
friendly affair, with lots of sincere 
speeches about how important DD§J 
has been and about how it still has a 
great role to play. There was a lot of 
talk about “hackers.” what they ac- 
complished; where DDJ stood in re- 
lation to them; where they might 
have gone now. 

they were expressed, the sentiments 
seemed incomplete to me. Something 
was being overlooked, but I couldn't 
figure out what it was until I was 
halfway home. Then I lay awake 
working out the speech that ought to 
have been given, but wasn’t. And this 
SAE 2 ices 


We’ve heard a lot about “hackers” 
in the last few minutes. I would like 
to protest the use of that word. I un- 
derstand why it’s being used. It’s be- 
cause nobody can think of the right 
word to describe the people who 
founded DDJ and the people who 
read and profited from it in its earli- 
est days. We know they weren’t part 
of the establishment; we know they 
didn’t play a conventional role in the 
society of their day. We have, per- 
haps, an uneasy feeling that we aren’t 
quite like them and that they 
wouldn’t find us very interesting— 
even though perhaps we were them 
just a few years ago. 

So we scratch around in our vocab- 
ularies, searching for the right word 
to describe these departed people, 
and the best we can come up with is 
“hacker.” Well, it’s the wrong word. 

The right word is ... revolution- 
ary. Subversive. Bomb-throwing an- 
archist. 

To me, the hacker state is a frame 
of mind in which one is turned inward 
on oneself and the machine: one’s 
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Dr. Dobb ts a Subversive 


spiritual third eye rolls up into the 
head. The people who birthed DDJ 
and personal computing in general 
were quite the opposite. Their eyes 
were turned outward on society—and 
twinkled with mischief. 

They were bent, quite consciously, 
on overthrowing the established order. 
It was to be a nonviolent overthrow, 
one conducted if possible with whimsy 
and good humor, but it was to be an 
overthrow, a toppling, nonetheless. 

The central tenet of this jolly revo- 
lution was (and still is) the belief that 
if we put enough computers in the 
hands of enough people, wonderful 
changes will take place. What the 
wonderful changes are ... well, that 
varies with the year and the person 
you're talking to. But that they will 
be wonderful, as well as radical in the 
deepest and best sense of the word, no 
computer subversive doubts. I cer- 
tainly don’t. 

The founder of the movement and 
its only theorist, its Marx or Che Gue- 
vara if you like, is Ted Nelson. His 
book, Computer Lib, was written in 
reaction to computers, their employ- 
ers, and their professional priesthood 
as those things existed in the early 70s. 
It was a protest: “Either computer 
systems are going to go on inconven- 
iencing our lives, or they are going to 
be turned around to make life better,” 
and then, in caps, a battle cry: “COM- 
PUTER POWER TO THE PEOPLE! 
DOWN WITH CYBERCRUD!” 

And to make sure we didn’t miss 
the point, there was the symbol of the 
clenched fist on the cover. I hope I’m 
not the only one here who remembers 
when the word Lib and the upraised 
fist were potent, dangerous symbols. 
That Nelson borrowed both for his 
manifesto indicates how serious he 
was. 

I don’t know if the People’s Com- 


puter Company admitted to subver- 
sive intentions in public or not. Un- 
fortunately for me, I was out of the 
country during its glory days. I was 
aware of micros and an early sub- 
scriber to DDJ, but I was only a fellow 
traveler to the revolution, not a revo- 
lutionary myself. 

But whether the intentions were ad- 
mitted or not, I’m positive that they 
were there. No one who’s spent any 
time with Bob Albrecht, or with Ra- 
mon Zamorra, who founded Compu- 
terTown USA!, could have any doubt 
that these people are motivated by a 
deep love of mischief. Nothing pleases 
them better than a well-toppled apple 
cart or a well-rocked boat. 

Another revolution that I missed 
out on was the birth of the acid cul- 
ture in the early 60s. But I suspect 
that the spirit of People’s Computer 
Company had a lot in common with 
the spirit of Ken Kesey’s Merry 
Pranksters, and with that of the Dig- 
gers and the various communards of 
the 60s. They all felt that they’d sto- 
len the fire of the gods and that 
they’d damn well better set as many 
blazes as they could before the gods 
came to take it back. 

After all, what could possibly be 
more subversive than training chil- 
dren to operate the tools of the estab- 
lishment, without at the same time 
inculcating the establishment’s line 
of thinking? But that was what Al- 
brecht, Allison, et al., were doing. I 
don’t know if this is what was specifi- 
cally in their minds or not. But con- 
sider. You have all had the following 
experience. You program something 
in BASIC; you find that the program 
doesn’t work because of the inevita- 
ble bugs; then, after you pick them 
off, you find that it sti// doesn’t work 
because the limited accuracy of bina- 
ry floating point has turned your nu- | 
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merical results into oatmeal. Nobody 
who has been through that can ever 
look at their bank statement in quite 
the same way again. Or their phone 
bill. Or, if there is a live connection 
between one side of their brain and 
the other, can they ever feel quite the 
same about a proposal for an antibal- 
listic missile system as they might 
once have done before their personal 
encounter with computers in the raw. 

Albrecht and company used time- 
sharing terminals to start indoctri- 
nating children and susceptible 
adults, but then the micro came 
along. The earliest micros were piti- 
ful, but to the eyes of a computer sub- 
versive they appeared to be the sword 
of liberation. A computer you could 
hold in your hand! 

For a parallel, try to imagine that 
Gutenberg had never invented his 
printing press; that the only way for 
books to be reproduced was for them 
to be handwritten by scribes. Of 
course, only the wealthy and the gov- 
ernment can afford to pay scribes and 
buy vellum, so the only thoughts that 
circulate in book form are the ones 
acceptable to the powers that be. 
Then somebody invents the typewrit- 
er: a cheaper, faster way of being a 
scribe, one that anybody can learn. 
So you start a counterculture book 
factory, teaching people to use type- 
writers to duplicate unapproved liter- 
ary works. 

And then somebody walks in the 
door with the latest invention, the 
Xerox copier. And just that simply, 
your revolution has been won; now 
it’s just a matter of mopping up. 

In the case of the computer revolu- 
tion, the mopping up is still going on. 
The micro has, in fact, hurt the com- 
puter bureaucrats, the people who 
would try to make you swallow an in- 
convenience on the grounds that the 
computer wouldn’t let them be help- 
ful. These days they find it a lot hard- 
er to say “‘the computer won’t let me” 
because so many clients are likely to 
answer ‘“‘Why not? My computer 
would.” There really is a lot less these 
days of what Nelson called cyber- 
crud, and we can credit that to the 
wide popular exposure to micros. 

But there is a lot more to be done. 
We’ve spread computers all over the 


Dr. Dobb's Journal, May 1985 


place and still have no millenium, nor 
anything remotely like it. There’s 
been no great liberation of minds or 
spirits. The revolution has been as- 
similated, just as the automotive, sex- 
ual, drug, and free speech revolutions 
were assimilated before it, and the 
feminist revolution is being assimilat- 
ed now: they come, they pass, things 
are different but not very much so. 
Surely by now the wonderful thing 
should have happened. Surely by now 
somebody should have written the 
program that will set us all free? But 
no. 

One reason for this failure is that 
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the computer did not turn out to be a 
sword that could be placed in any- 
one’s hand. It isn’t a sword at all, nor 
anything like a simple edged or point- 
ed weapon. For complexity it’s more 
like a whole battalion of soldiers. If 
you tell some poor shmuck to start 
wielding one, you put him in the posi- 
tion of a private promoted instantly 
to general and asked to take over 
management of a battle. 

To change metaphors nimbly in 
midstream, we have made the belated 
discovery that the computer priest- 
hood that we deposed was not entire- 
ly a group of fakes; they had more 
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than mumbo jumbo going for them. 
True, they’d made public access to 
the machines difficult, or allowed it 
to be difficult. But now that we have 
our own machines, we find out that 
there were good reasons for that. It 
turns out that quite possibly the most 
difficult thing you can do with a com- 
puter is to make it be truly helpful. If 
you are in a hurry for an answer, you 
will find it a lot easier to program the 
machine to take its input in rigid, un- 
forgiving formats, and to give cryp- 
tic, insulting error messages, than to 





make it flexible and friendly and for- 
giving. 

In fact, we find that in putting on its 
happy face, the machine uses up so 
much capacity that it has precious lit- 
tle left in which to do any useful work. 

Partly this is a real effect. It truly 
is difficult to make a computer be 
helpful, and there are deep, unsolved 
problems in the way of making that 
happen. But in part, I think that the 
revolutionaries were a bit hasty in ex- 
iling those priests. They have a genu- 
ine science, computer science, that 
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deals with the elegant and efficient 
application of machine power. All too 
little of that science is being applied 
today. The result is that we have ma- 
chines with 512K of storage that 
can’t keep up with the demands of a 
single user. Damn it, we used to sup- 
port twenty APL users on a single 360 
model 40 with 128K; we considered a 
370/158 with 512K a big machine, 
suitable for use by a middle-sized 
company with half a dozen program- 
mers online to TSO or VM/370. The 
big macro assembler for the IBM 370 
needs a 128K partition to run in. 
That’s the assembler program plus all 
the tables and work areas and buffers 
it uses. The macro assembler for the 
IBM PC can barely load itself into 
128K, and it can’t assemble anything 
of useful size until you give it 256K. 
In short, there has been a major loss 
of efficiency in moving from the soft- 
ware that the priests built for the cor- 
porate mainframes to the software 
that we are putting on personal com- 
puters today. 

As a good revolutionary, I must be- 
lieve that computer use is for every- 
body, and I really do. But program- 
ming the computers so they can be 
used is almost certainly a job for spe- 
cialists. 

The question that confronts us now 
is: whose specialists are they going to 
be? Will they be the tools of the new 
computing establishment, working 
for the fiscal advantage of a company 
like IBM or AT&T or Microsoft, or 
for the political advantage of a nation 
like Japan or France? 

Or will they be grass-roots benefac- 
tors like so many who supplied the 
software we have now—and who of- 
ten supplied it through the pages of 
DDJ? 1 would like it to be the latter. In 
fact, I propose to you that what DDJ 
has always done is to support and 
train and encourage our grass-roots 
systems programmers. And that is 
still the best, and most truly radical, 
thing that it can do in the future. I’m 
delighted to see that its editors agree 
with me. Proof that they do is in their 
publishing Richard Stallman’s “GNU 
Manifesto” (DDJ #101, March 
1985), an outrageous, revolutionary 
challenge quite in the old vein. 

My own best writing for DDJ has 


Dr. Dobb’s Journal, May 1985 





Why Professionals Choose Aztec C 


AZTEC C compilers generate fast, compact 
code. AZTEC C is a sophisticated development 
system with assemblers, debuggers, linkers, 
editors, utilities and extensive run time libraries. 
AZTEC C is documented in detail. AZTEC C is 
the most accurate and portable implementation 
of C for microcomputers. AZTEC C supports 
specialized professional needs such as cross 
development and ROM code development. 
MANX provides qualified technical support. 


AZTEC C86/PRO 

— for the IBM AT and PC/XT 

AZTEC C86/PRO provides the power, portabili- 
ty, and professional features you need to 
develop sophisticated software for PC DOS, MS 
DOS AND CP/M-86 based microsystems. The 
system also supports the generation of ROM 
based software for 8088/8086, 80186, and 80286 
processors. Options exist to cross develop ROM 
code for 65xx, 8080, 8085, and Z80 processors. 
Cross development systems are also available 
that target most micro computers. Call for infor- 
mation on AZTEC C86/PRO support for XENIX 
and TOPVIEW. 


POWERFUL — AZTEC C86/PRO 3.2 outper- 
forms Lattice 2.1 on the DHRYSTONE 
benchmark 2 to 1 for speed (17.8 secs vs 37.1) 
while using 65% less memory (5.8k vs 14k). The 
AZTEC C86/PRO system also compiles in 10% 
to 60% less time and supports fast, high volume 
1/0. 


PORTABLE — MANX Software Systems pro- 
vides real portability with a family of compatible 
AZTEC C software development systems for PC 
DOS, MS DOS, CP/M-86, Macintosh, CP/M-80, 
APPLE // +, //e, and //c (NIBBLE - 4 apple rating), 
TRSDOS (80-MICRO - 5 star rating), and Commo- 
dore C64 (the C64 system is only available as a 
cross compiler - call for details). AZTEC 
C86/PRO is compatible with UNIX and XENIX. 


PROFESSIONAL — For professional features 
AZTEC C86/PRO is unparalleled. 


Full C Compiler (8088/8086 - 80186 - 80286) 

Macro Assembler for 8088/8086/80186/80286 
Linkage Editor with ROM support and overlays 

Run Time Libraries - object libraries + source 

DOS 1.x; DOS 2.x; DOS 3.x; screen 1/0; Graphics; 
UNIX I/O; STRING; simulated float; 8087 support; 
MATH; ROM; CP/M-86 

e Selection of 8088/8086, 80186, or 80286 code genera- 
tion to guarantee best choice for performance and 
compatibility 





TRS 80 RADIO SHACK TRS DOS is a trademark of TANDY. 
APPLE DOS MACINTOSH is a trademark of APPLE. 


e Utility to convert AZTEC object code or libraries to 
Microsoft format. (Assembly + conversion takes 
less than half the time as Microsoft’s MASM to pro- 
duce MS object) 

e Large memory models and sophisticated memory 
management 

e Support products for graphics, DB, Screen, & ... 

e ROMable code + ROM support + separate code and 
data + INTEL Hex Converter 

e Symbolic Debugger & Other Utilities 

e Full Screen Editor (like Vi) 

e CROSS Compilers are available to APPLE //, Macin- 
tosh, CP/M-80, TRSDOS, COMMODORE C64, and 
ROM based 65xx, and 8080/8085/Z80 

e Detailed Documentation 


AZTECS CBBIPRO-POID: og oct a ns et $500 
(configured for IBM PC/XT - options for 80186/80286) 


AZTEC C86/BAS includes C compiler (small model only), 
8086 MACRO assembler, overlay linker, UNIX, MATH, 
SCREEN, and GRAPHICS libraries, debugger, and 


editor. 

Pee ae Soar enkic sc hm bcc econo ws vl e wind oe $199 
AZTEC. CBGIBAS (GRIM BG) i. res os he eB $199 
AZTEC C86/BAS (DOS + CP/M-86)............... $299 
UPGRADE.to AZTEC C8GIPR@. 2:20... ee eles $310 
C-TREE Database with source .................. $399 
C-T PEE RBOG (ODIOCE i ik ke ba ods tbe aoe $149 


CROSS COMPILERS 
Cross Compilers for ROM, MS DOS, PC DOS, or CP/M-86 
applications. 


VAX - >> SUGSIBORKX CIOSS 66 eck. G9 38 See $5000 
PDP-11 - > @O086/B8Oxxx CrOSS ...........c0cee ees $2000 


Cross Compilers with PC DOS or CP/M-86 hosts are $750 
for the first target and $500 for each additional target. 
Targets: 65xx; CP/M-80; C64; 8080/8085/Z80; Macintosh; 
TRSDOS; 8086/8088/80186/80286; APPLE //. 


AZTEC C68K 


— for the Macintosh 

For power, portability, and professional features 
AZTEC C68K-c is the finest C software development 
system available for the Macintosh. 

The AZTEC C68K-c system includes a 68000 macro 
assembler, a linkage editor, a source editor, a mouse 
based editor, a SHELL development environment, a 
library of UNIX I/O and utility routines, full access and 
support of the Macintosh TOOLBOX routines, debug- 
ging aides, utilities, make, diff, grep, TTY simulator with 
upload & download (source supplied), a RAM disk (for 
512K Mac), a resource maker, and a no royalty license 
agreement. Programming examples are included. (Over 
600 pages of documentation). 

AZTEC C68K-c requires a 128K Macintosh, 
and two disk drives (frugal developers can make 
do with one drive). AZTEC C68K supports the 
512K Macintosh and hard disks. 


AZTEC C68K-c (commercial system) ............. $500 
AZTEC C68K-p (personal system)................ $199 
AZTEC C68K-p to AZTEC C68K-c upgrade......... $310 


MANX @ 


For Technical Support 


Aztec The Most Powerful C 


for the IBM AT e MACINTOSH ¢ MS DOS ¢« CP/M-80 ¢ ROM APPLICATIONS 
IBM PC/XT © APPLE // e CP/M-86 © TRSDOS ¢ CROSS DEVELOPMENT 


Mac Gree Gatabase: is bes ck Ee eae $149 
Mac C-tree database withsource................ $399 
Lisa Kit (Pascal to AZTEC C68k object converter) .. 


AZTEC C65 


— for the APPLE // 
‘.. The AZTEC C-system is one of the finest software 
packages | have seen...’’ NIBBLE review, July 1984. 
The only commercial C development system available 
that runs native on the APPLE II+, llc, and lle, the 
AZTEC C65 development system includes a full floating 
point C compiler compatible with UNIX C and other 
MANX AZTEC C compilers, a 6502 relocating assem- 
bler, a linkage editor, a library utility, a SHELL develop- 
ment environment, a full screen editor, UNIX I/O and 
utility subroutines, simple graphics, and screen func- 
tions. 


AZTEC CES (Apple DOSS. S) i. Fi ioe Degas. bw pare $199 
AZTEC C65/PRO (Apple DOS + ProDos).......... $350 
(call for availability) 


AZTEC C II/PRO 


— for CP/M-80 

The first member of the AZTEC C family was the 
CP/M-80 AZTEC C compiler. It is “the standard’’ com- 
piler for development on CP/M-80. The system includes 
the AZTEC C II C compiler, an 8080 assembler, a linkage 
editor, an object librarian, a full library of UNIX I/O and 
utility routines, CP/M-80 run time routines, the SMALL 
library (creates modules less than 3K in size), the fast 
linker for reduced development times, the ROM library, 
RMAC and M80 support, library source, support for 
DRI's SID/ZSID symbolic debugger, and more. 


AZTEC CANPRAG: i, o0i5 ots t vache dameccnk 20a ke $349 

APT EC GHIBAS sooo on ete hr sles s Re ck we Saw 8 $199 

C-TREE Database with source .................-. $399 

C-TREE Database in AZTEC objectform.......... $149 
AZTEC C80 


— for TRSDOS (Radio Shack Model Ili & 4) 

“I’ve had a lot of experience with different C compilers, 
but the Aztec C80 Compiler and Professional Develop- 
ment System is the best I’ve seen.’’ 80-Micro, Decem- 
ber, 1984, John B. Harrell Ill 


This sytem has most of the features of AZTEC C II for 


CP/M. It is perhaps the best software development 
system for the Radio Shack Model Ill and IV. 

AZTEC C80 model 3 (no floating point) ........... $149 
AZTEG G80 madel 4 full) Stee oP ER es ak $199 
AZTEC C80/PRO (full for model 3and4)........... $299 


To order or for information call: 


800-221-0440 


(201) 530-7997 (NJ and outside U.S.A.). Or write: MANX 
SS oruAPe SYSTEMS, P.O. Box 55, Shrewsbury, N.J. 
07701. 


SHIPPING INFORMATION - Standard U.S. 
shipment is UPS ground (no fee). In the U.S. 
one day shipment is $20, two days is $10. 
Canadian shipment is $10. Two days ship- 
ment outside the U.S. is by courier and is 
freight collect. 


(Bug Busters) call: 201-530-6557 


Circle no. 62 on reader service card. 


for C programs to 
compile and link? 





Use C-terp 


the complete C interpreter 


This is the product you’ve been 
waiting (and waiting) for! 


Increase your productivity and avoid 
agonizing waits. Get instant feedback of 
your C programs for debugging and rapid 
prototyping. Then use your compiler for 
what it does best...compiling efficient code 
... Slowly. 


C-terp Features 
¢ Full K&R C (no compromises) 


© Complete built-in screen editor-- 
no half-way house, this editor has every- 
thing you need such as multi-files, inter-file 
move and copy, global searching, auto- 
indent, tab control, and much more. 

© Fast-- Linking and semi-compilation are 
breath-takingly fast. (From edit to run 
cree in a fraction of a second for 
small programs.) 

© Convenient-- Compiling and running are 
only a key-stroke or two away. Errors 
direct you back to the editor with the 
cursor set to the trouble spot. 

© Compiler Compatible-- You can access 
functions and externals compiled with C86 
or Lattice C or assembly language. Utilize 
your existing libraries unchanged! 

® Complete Multiple Module Support-- 
Instant global searches, auto-compile 
everything that’s changed, etc. 

¢ Many more features including batch mode 
and symbolic debugging. 

© Runs on IBM PC, DOS 2.x, 192K and up 

° Price: $300.00 (Demo $45.00) MC, VISA 


Price of demo includes documentation and shipping 
within U.S. PA residents add 6% sales tax. 
Specify C86 or Lattice version. 


GIMPEL SOFTWARE 


3207 Hogarth Lane ® Collegeville, PA 19426 
(21 5) 584-4261 


*Trademarks: C86 (Computer Innovations), Lattice 
(Lattice Inc.), IBM (IBM Corp.),C-terp (Gimpel Software) 


26 





been inspired by a species of the Rob- 
in Hood ethic: a desire to steal ideas 
from the well-funded and put them 
into the heads of the unfunded. I en- 
joyed writing my recent article on 
Prolog for just that reason. Prolog 
and the ideas behind it had been the 
property of a few academics, and 
these ideas were rapidly being co-opt- 
ed by the Japanese for their Fifth 
Generation. But DDJ gave me a 
chance to snatch those same notions 
and spread them around everywhere, 
making them accessible to everybody 
who can grasp them. Of course the 
real revolutionaries are the people in 
London who publish Micro-PROLOG 
and the ones in this country who are 
selling a version of DEC-10 Prolog for 
the IBM PC. The ideas wouldn’t be 
much use without the cheap software 
that implements them, and that 
wouldn’t be of any use without the 
cheap micros to run it on. 

So these processes all feed back on 
themselves and get richer and deeper. 
But the continuation of this revolu- 
tion, at least its continuation as a rev- 
olution and not as a captive toy of the 
corporations and the advertisers, de- 
pends on getting ever more sophisti- 
cated ideas and tools into the hands 
of creative people, so that they can 
keep putting ever more sophisticated 
programs back into ours. 

Notice how the ante goes up on ev- 
ery round. The level of sophistication 
is escalated every time through the 
loop. The Mac’s internal toolkit, and 
its competitive followers Windows 
and GEM, are vastly harder to use 
well than the old CP/M BDOS func- 
tions. Graphics, AI, and speech rec- 
ognition, in their different ways, re- 
quire the exercise of all the 
algorithmic tools of computer sci- 
ence. And it takes very abstruse, very 
mathematical tools to analyze these 
massive, sophisticated programs and 
prevent them from overflowing the 
capacities of personal hardware, 
which really are quite limited. The 
experience of mainframers has been 
that your hardware is always an or- 
der of magnitude too small for the 
software you'd like to run. There’s no 
indication that this law has been re- 
pealed for micros. We will be squeez- 
ing quarts into pint bottles forever, 


and it takes sound theoretical insight 
to do that well. 

I should add that the rule that the 
capacity of the hardware always falls 
short of the needs of the software just 
might be repealed by highly parallel, 
multiple-micro systems. Two things 
about such systems: first, they are 
right on the fringe of computer sci- 
ence and the academics haven’t the 
foggiest idea how to build good soft- 
ware for them; and second, they are 
ideally suited for hobbyist-level, ga- 
rage experiments. 

But this is why the face and con- 
tents of DDJ have been changing. 
Whether the editors and contributors 
knew it or not, they’ve been trying to 
prepare themselves to discuss and un- 
derstand computers at the more so- 
phisticated level permitted by the 
second generation of micros. But 
there’s been no change in who is do- 
ing the discussing, nor in their essen- 
tially subversive motive, which is to 
snatch the tools of the establishment 
and apply them in the public domain. 

It’s that mischievous, subversive 
motive that has kept me writing for 
DDJ. That, and the belief I still hold 
that, somewhere out there, fingers on 
the keyboard of an Apple or Osborne, 
is a fifteen-year-old kid who is capable 
of writing the program that will turn 
the world upside down. The proper 
role of DDJ is to make sure that that 
kid has free, unfettered access to the 
ideas and the software tools that she 
needs in order to write it. 


DD} 
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) T te programs using your computer's full INTERFACE 
} 0 create pr 
capacity, one are 18 library modules. And unlike TECHNOLOGIES 
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Command Line Processing 


by Allen Holub 


A command line switch is an argu- 
ment usually preceded by a ‘—’ that 
modifies the way in which a program 
works. Just about every C program I 
write uses command line switches, 
and all these programs have to pro- 
cess these switches one way or anoth- 
er. For a long time, I wrote a differ- 
ent little subroutine for each 
program, modifying the routine to 
deal with the idiosyncrasies of a par- 
ticular program. After writing the 
same subroutine about a million 
times (and making the same off-by- 
one error with argc every time), I 
thought that there had to be a better 
way. All my processing routines were 
essentially the same in structure; only 
the names of the command line 
switches were different. A general 
purpose command line processor was 
clearly what I needed. 

Looking around in the literature for 
something that did the job, I found the 
‘““Argum”’ package, which appeared in 
Anthony Skjellum’s C/Unix column 
in DDJ (#70, August 1982). The pro- 
gram was well written and did what I 
needed, but it had several problems. 
First of all, it did a lot more than I 
needed and the extra functions added 
extra code. Because this package was 
going to be included in every program 
I wrote, a reduction in scope seemed 
to be a good idea. Another, related, 
problem was the internal tables used 
by Argum. They were created at run- 
time (as compared to compile time). 
This added both extra code and extra 
execution time to any program that 
used Argum. Finally, Argum had no 
convenient way to deal with errors on 
the command line. In view of these 
problems, I decided to write my own 
processor, a description of which fol- 
lows. This is by far the most frequent- 
ly used subroutine in my standard 
library. 
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Getargs( ) 

The command line processor is actu- 
ally a package of subroutines. Access 
to these routines is through a single 
procedure, called getargs( ). The rou- 
tines are table driven. In every pro- 
gram you have to declare a table in 
which the various command line 
switches are described. Getargs( ) re- 
moves the switches from the com- 
mand line as it works. This means 
that position-sensitive arguments 
(e.g., a switch that applies to all files 
that follow it on the command line, 
but not to any files that precede it) 
are not supported. I don’t use this sort 
of switch very often, and I got tired of 
having to skip past arguments that 
had already been processed to get toa 
filename. The arguments are evaluat- 
ed left to right, so interaction be- 
tween PROC type switches (see be- 
low) is possible. 

When getargs( ) finds an error on 
the command line, it prints to stderr a 
list of all legal switches, along with a 
brief description of what those switch- 
es do and their default values. After it 
prints the error message, getargs( ) 
terminates the program with an 
exit(1) call. This closes any open files 
and returns to the operating system. 


Command Line Switch Formats 
Command line switches all must take 
the form: 


— <character> [ <number>'! 
<string> | 


That is, all arguments start with a 
minus sign; each switch is identified 
by a single letter that follows the mi- 
nus sign immediately (no intervening 
spaces); the letter may be followed by 
an optional number or string, again 
with no spaces between the character 
that serves as the switch identifier 





and the corresponding number or 
string. Switches may be combined, 
provided that the argument types al- 
low this combination. For example, 
the command line: 


program’ —a-b123'—c¢ 
can also be written as: 
program —ab123c 


However, if getargs( ) expects a 
string to follow the switch identifier 
character, then it assumes that the 
rest of the argument is part of the 
string. You have to be careful when 
combining string type command line 
switches with other types. 


Using Getargs( ) 

To use getargs( ) you must do two 
things: (1) set up a table to tell the 
routine what kind of command line 
switches to expect; (2) call the rou- 
tine itself somewhere early in the 
main( ) module. The file getargs.h 
(Listing One, page 32) contains the 
#defines and typedefs needed to cre- 
ate the command switch descriptor 
table. This table is an array of 
structures: 


typedef struct 
unsigned arg: 7 
unsigned type:4_ ; 
int *variable — ; 
char “errmse ; 
ARG; 


The arg field is a single character 
that identifies the switch on the com- 
mand line. In the following descrip- 
tions this character is represented as 
<switch>. The type field may take 
any one of five values, all of which are 
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#defined in getargs.h. The behavior 
of getargs( ) will vary according to 
the value. 

INTEGER switches take the form 


—<switch> <number> 


Numbers preceded by Ox are hex, by 
0 without the x, octal. All others are 
decimal. The number is terminated 
by any character not legal in the indi- 
cated radix. Any characters that fol- 
low are assumed to be additional 
switches. The int sized variable point- 
ed to by the variable field of the ARG 
structure will be set to the value of 
the <number>. If the <number> 
isn’t typed on the command line, 
*variable will be set to 0. 

BOOLEAN switches will cause 
some action based on the presence or 
absence of the indicated switch on the 
command line. If the switch is pre- 
sent, then the int pointed to by the 
variable field is set to 1, otherwise 
*variable is not modified. 

CHARACTER switches take the 
form 


—<switch> <character> 


When the switch is found on the com- 
mand line, then *variable is set to the 
character immediately following the 
<switch> character. 

STRING switches take the form 


—<switch> <string> 


When the switch is found on the com- 
mand line, the character pointer 
pointed to by the variable field is set 
to point at a string consisting of all 
characters following (but not includ- 
ing) the <switch> character up to 
the end of the current argument (not 
to the end of the command line). In 
the case of combined switches in a 
single argument, the STRING argu- 
ment must be the last one because all 
following characters will be consid- 
ered part of the <string>. When de- 
fining a STRING switch in the table, 
be sure to cast the variable into an 
integer pointer. See Listing Three 
(page 38), line 15, for an example. 
PROC switches take the form 


—<switch> <anything> 
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This works like the STRING switch in 
that all characters following 
<switch> up to the end of the cur- 
rent argument will be part of the 
<anything>. However, the variable 
field is a pointer to a subroutine that 
is called indirectly as soon as the 
switch is encountered on the com- 
mand line. A pointer to <anything> 
is passed to this subroutine as a single 
argument. An example of such a sub- 
routine is given in Listing Three, line 
19. It is the responsibility of the 
called subroutine to parse <any- 













All of these companies rely on BetterBASIC 
to write their software programs. They have 
found that BetterBASIC combines the features 
they need from BASIC, Pascal, C and Forth in 
one familiar environment. Some of these fea- 
tures include the following. 

640K Now you can use the full memory 

of your PC to develop large programs. 
STRUCTURED Create well organized 
programs using procedures and functions 
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MODULAR Use procedures and functions 
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in an immediate mode. However, each 
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COMPILED Each line 
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compiled as it is entered 
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in BetterBASIC 
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ALSO AVAILABLE FOR THE TANDY 2000, 1200 AND 1000 


thing> as appropriate. 

The errmsg field is used to print an 
error message if an undefined switch 
is found. An example of the format is 
shown in the Figure (page 30). This 
message was generated when the 
command line “‘argtest —x”’ was giv- 
en to argtest. 

Listing Three (if you haven’t real- 
ized it by now) is an example of how 
to use getargs( ). Lines 5-9 are decla- 
rations of the objects that are used in 
the variable fields of the switch de- 
scriptor table. The initial values of 


bes é 


into the computer’s memory rather than 
interpreted at runtime. The optional Runtime 
System generates EXE. files. 


BetterBASIC Runs on IBM PC, IBM 
PC/XT and compatibles. 

CALL 1-800-225-5800 Order Better 
BASIC now, or write Summit Software Tech- 
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BetterBASIC: $199 Runtime System: $250 
8087 Math Module: $99 
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sample disk which includes a demo, a 
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BetterBASIC and more. Only $10. 


MasterCard, VISA, P.O. Checks, Money Order, C.0.D. 
accepted. 


BetterBASIC is a registered trademark of Summit 
Software Technology, Inc. 


IBM PC and IBM PC/XT are registered trademarks 

of International Business 
Machines Corp. Tandy is a regis- 
tered trademark of Tandy Corp. 
Illustrated above are registered 
trademarks of the following com- 
panies: Mobil Oil Corp.; A T & T; 
General Electric Co.; Westing- 
house Electric Corp.; TRW, Inc. 
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PROGRAMMERS 


db_VISTA 
The first DBMS designed 
exclusively for the C CUFT ESS 


PREFERRED over ISAM and file utilities 
POWER like a mainframe DBMS 
PRICED like a microcomputer utility 
PORTABILITY like only C provides 





FEATURES INCLUDE: 


Written in C, for C. 

Maximum data efficiency using the 
network database model. 

Virtual memory disk accessing. 

Fast B’-tree indexing method. 
Multiple key records-any or all data 
fields may be keys. 

ROYALTY FREE RUNTIME. 

SOURCE CODE INCLUDED. 

Three month extended applications 
support included. 


FREE OFFER 
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the following C tools from Lattice at no 
additional charge, when you order 

db VISTA 


e Lattice C Compiler 

e C-Sprite Program Debugger 

e Lattice Window Manager 

e Curses Unix-compatible Screen 


Manager (source code included ) 
Panel Forms Manager 
CVUE Screen Editor 


db VISTA with source code: 
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db_ VISTA, Lattice C compiler, 
C-Sprite, CVUE, & Curses 
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$395 


db VISTA available for PC-DOS/MS-DOS, 
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DeSmet, Computer Innovations, AZTEC. Also 
available for most Unix systems and CTOS. 


RAIMA 


CORPORATION 
11717 Rainier Avenue South 
Seattle, WA 98178 
206/772-1515 


CALL TOLL-FREE 
1-800-843-3313 
at the tone: 700-992 
ask for Jim 


MONEY BACK GUARANTEE 
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these variables remain unchanged if 
the switch is not encountered on the 
command line at runtime. The table 
itself, Argtab, is declared on lines 10- 
17. The main() routine calls get- 
args( ) on line 35. The rest of main(_) 
just prints the command line, both 
before and after the getargs( ) call, so 
you can see how getargs( ) strips pro- 
cessed switches out of argv. 

Getargs( ) itself starts on line 98 of 
Listing Two (page 32). It is passed 
four arguments: argv, argc, a pointer 
to the switch descriptor table (tabp), 
and the size of this table in elements 
(not bytes). The routine returns a 
new value of argc, and argv is com- 
pressed, i.e., all entries containing 
command line switches are removed 
from it. The for loop on line 112 pro- 
cesses argv one element at a time. 
Nargv points into argv and strips pro- 
cessed switches. Nargv is initialized 
to point at argv[1] because argv[0] 
can’t possibly contain a command 
line switch (it holds the program 
name). If no leading minus sign is 
found in the argument, *argv is cop- 
ied to *nargv and both pointers are 
advanced. In addition, narge (new 
argc) is incremented. If the argument 
does begin with a minus sign, it is 
processed as a command line switch. 
In this case *argv is not copied to 
*nargv, and argv, but not nargv, is 
advanced. This effectively eliminates 
the argument containing the switch 
from the argv array. 

Findarg( ) (Listing Two, line 44) is 
used by getargs( ) to see if an argu- 
ment is in the table. It performs a lin- 
ear search. Because the table is usu- 
ally fairly small, it seemed as if the 
extra code needed for a binary search 


wasn’t justified. Findarg( ) takes 
three arguments: c is the switch iden- 
tifier character being searched for; 
tabp and tabsize are the same param- 
eters as were passed to getargs( ). 

Setarg( ) (Listing Two, line 9) is 
called when a command line switch is 
found in the table. Argp is a pointer 
into the table, as returned from find- 
arg( ). Linep is a pointer into the argv 
entry that is being processed. Casts 
were used to make this routine as 
transportable as possible. 

Pr_usage( ) (Listing Two, line 57) 
is used to print the error message 
shown in the Figure when an illegal 
command line switch is found. It just 
spins through the table, printing the 
current contents of the object pointed 
to by the variable field as well as the 
message given in the errmsg field. 

The final routine in the package is 
stoi( ) (for string to integer, Listing 
Four, page 38), which is used to pro- 
cess INTEGER switches. Stoi( ) is a 
fancy version of the standard library 
routine atoi( ) (described on page 58 
of Kernighan & Ritchie). Stoi( ) can 
handle numbers in base 8, 10, or 16. 
If code size is a real issue, you may 
want to remove the code that process- 
es octal numbers (Listing Four, lines 
45-53). Another major difference be- 
tween stoi( ) and atoi( ) is that stoi( ) 
is passed a pointer to a character 
pointer. That is, it is passed the ad- 
dress of the pointer, which in turn 
points into the string to be processed. 
This extra level of indirection lets you 
modify the character pointer itself to 
point past the end of the number be- 
ing processed. If you use atoi( ), you 
have to go through the string twice, 
once to extract the number and once 


legal argument <x>. Legal arguments are: 


boolean argument 
character argument 
integer argument 
string argument 
procedure argument 


—s<str> 
—p<str> 


(value is FALSE) 

(value is .) 

(value is O) 

(value is <doo wha>) 


Figure 
Error Output from Program in Listing Three 
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Quality Tools from QCAD Systems, Inc. 





A UNIX-like toolset that runs 
under MS-DOS, making full use of 


DOS I/O redirection and 
environment variables. Great for 
pattern search, substitution, 
translation, file’ listings, and 
maintenance. On-line help and 
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complex file manipulations. Some 
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Typesetting 


A typesetting system for the IBM 
PC and HP LaserJet _ printer. 
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An LALR(1) parser generator that 
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Multi-level interactive debugging 
support. Advanced error recovery 
mechanism. Sample _ translators 
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Full System $995.00 
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more to skip past the characters that 
represent that number. 


Conclusion 

Several additions could be made to 
getargs( ), at the cost of an increase 
in complexity and code size. 


e A common command line function 
is to open or close a file in a partic- 
ular mode and to abort if the file 
can’t be opened. At present I’m do- 
ing this with a PROC type com- 
mand line switch, but you could 
add another argument type, whose 
variable field points to a FILE 
pointer. Alternately, variable could 
point to a structure that included 


C Chest 


the FILE pointer, an open mode, a 
pointer to an error processing rou- 
tine, and a default file name. 
Another nice feature would be to 
mark an argument if its presence 
is required on the command line. 
You could accomplish this by add- 
ing additional types (i.e., REQ 
_INTEGER), or by adding anoth- 
er field to the ARG structure. An 
error message would be printed if 
the argument wasn’t found on the 
command line. 

Getargs( ) depends on initializers 
to set default argument values. If 
your compiler doesn’t support ini- 
tializers, you can add a default val- 
ue field to the ARG structure. 


¢ I have violated my smallness rule 
by using stoi( ) to process numeric 
arguments. If you expect only dec- 
imal numbers, you may want to 
replace stoi( ) with atoi( ). How- 
ever, stoi( ) is a useful routine in 
its own right. 


I’m sure that you can think of other 
bells and whistles. I’ve been using get- 
args( ) for a of couple years now and 
am satisfied with it in its existing 
state. Defining the way the command 
line looks and then getting switches 
from it is now a painless process. DDJ 


Reader Ballot 
Vote for your favorite feature/article. 
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(Text begins on page 28) 
Listing One 
be Getargs.h Typedefs and defines needed for getargs 
2: * / 
3: #define INTEGER 0 
4: #define BOOLEAN 1 
5: #define CHARACTER 2 
6: #define STRING 3 
7: #define PROC 4 
8: typedef struct 
9: 
iOS unsigned arg he 3 /* Command line switch * / 
Fis unsigned type Aes /* variable type */ 
V2: int *variable ; /* pointer to variable * / 
LS char *errmsg : /* pointer to error message */ 
Lae 34 
LBs “ARCs End Listing One 


Listing Two 


RE GETARGS.C Command line argument processor for C programs 
2s * 
ae * (C) Copyright 1985, Allen I. Holub. All rights reserved. 
= - This program may be copied for personal, non-profit use only. 
6: #include <stdio.h> 
7: #include <getargs.h> 
8: typedef int CEPFE)()% 
So. Static char *setarg( argp, linep ) 
103". -ARG *argp; 
Liss char *linep; 
ivso 
iat /* Set an argument. argp points at the argument table entry 
14; m corresponding to *linep. Return linep, updated to point 
LS: * past the argument being set, 
16: * 
Le ++linep; 
18: Switch( argp->type ) 
32 
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case INTEGER: 
*argp->variable = stoi( &linep ); 
break; 


case BOOLEAN: 
*argp->variable 
break; 


W 
_ 
we 


case CHARACTER: 
*argp->variable = *linep++ ; 
break; 


case STRING: 
*(char **)argp->variable = linep ; 
linep i wit. 


break; 


case PROC: 
(* (PFI)(argp->variable) )( linep ); 
wt, 


linep = ; 
break; 
default: 
fprintf(stderr, "INTERNAL ERROR: BAD ARGUMENT TYPE\n"); 
break; 


) 


return( linep ); 


} 


PO as a a i aN a at an sigh So me Eire ree aa * / 
static ARG *findarg( c, tabp, tabsize ) 
int Cc, tabdsize: 
ARG *tabp; 
{ . 
/* Return pointer to argument table entry corresponding 
* to-€. Cor 0 <4f.-c lise’ BAsC tei) 


*} 


for(; --tabsize >= 0; tabp++ ) 
if( tabp->arg == c ) 
return tabp; 


return 0; 
} 


static pr_usage( tabp, tabsize ) 


ARG *tabp; 
int tabsize; 
{ 
[F Print the argtab in the form: | 
f —-<arg> <errmsg> (value is <*variable>) 
ef 
for(; --tabsize >= 0 ; tabp++ ) 


{ 

switch( tabp—>type ) 

{ 

case INTEGER: | 
fprintf(stderr, "-Zc<nuim> %-40s (value is ", 

tabp->arg, tabp—>errmsg); 

fprintf(stderr, "Z-5d)\n", *(tabp->variable) ); 
break; 


case BOOLEAN: 
fprintf(stderr,"-Z%c 2-40s (value is ", 
tabp->arg, tabp-—>errmsg); 
fprintf(stderr, "Z-5s)\n", *(tabp-—>variable) 
7 “PRUE? "FALSE 
break; 


case CHARACTER: 
fprintf(stderr, "-Z%c<c> %Z-40s (value is ", | 
tabp->arg, tabp-—>errmsg); 
fprintf(stderr, "Z-5c)\n", *(tabp->variable) ); 
break; 


case STRING: . 
fprintf(stderr, "-%c<str> Z2-40s (value is ", 
tabp-—>arg, tabp-—>errmsg); 


(Continued on page 36) 


33 





dBASE Ill v 


MORE POWER UL 


dBASE ILI ISA QAAMAT/C AND POWERFUL 
NEW BUSINESS PROGRAMMING LANGUAGE. 


—Bob Davies, President/SBT Corporation 


AFTER A TWO-HOUR 
HANDS-ON SESSION WITH 
dBASE III, IT 1S EVENT = THAT 
ASHTON-TATE HAS MADE A S/GV/F/CANT 
ADVANCEMENT IN THE TECHNOLOGY 
OF MICROPROCESSOR-BASED DBMS. 


—Robert Dew, Vice President/The Computer Society 
RATHER THAN BEING 
AN /MITATOR, ASHTON- TATE 


HAS ONCE AGAIN SHOWN ITSELF TO 
BE AN AWOYATOR. 


—Larry Heimindinger/Origin, Inc. 






ASHTON- TATE 
HAS LISTENED TO 
THEIR USERS. THIS 
PRODUCT ADOKRESSES EVERY 
ITEM ON MY W/SA-Z/S7. 


—Mark DaVia/National Microware, Inc. 
















ASHTON- TATE 


HAS USHERED IN A REWA/SSAVCE. 
THE NEXT GEWERAT/OV OF SOFTWARE 
IS NOW A REAL/TY. 


—Chris MacNeil/Abel Computers 


THE NEW REPORT 
GENERATOR IS SUPER TO 


USE AND MODIFY. 
LABEL GENERATION IS 
ALSO A NICE TOUCH. 


—Michael Broska/Agate Systems, Inc. 


etalk in a ee 
dBASE III™ is the powerful and easy-to-use relational database management system you've been 
waiting for. You can use it without hesitation whether you’re a beginner or an expert. 
The big winner in the easy-to-use vs. more powerful controversy is you. 


If you want to know all about dBASE III, come to your Ashton-Tate software dealer for a free demon- 
stration. For more information call (800) 437-4329 ext. 2333 orin Colorado call (303) 799-4900 ext. 2333. 
dBASE III and Ashton-Tate are trademarks of Ashton-Tate. © 


Ashton-Tate 1984. All rights reserved. 
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LASY JO USES 


dBASE III 15 MUCH LASER 
TO OPERATE AND UNDERSTAND. 
PROGRAMMING WITH IT IS A BREEZE. 


—Michael Broska/Agate Systems, Inc. 
















dBASE TN IS BY 
FAR THE ZAS/ES7, MOST 
COST-EFFECTIVE 
WAY TO MANAGE A 
LARGE DATA BASE. 


—Robb Auspitz/McEntyre Designs 








THE NATURAL CHOICE 
OF THE NOVICE USER 
WITH EXPANDABLE NEEDS. 
GBASE III 1S REALLY 
dBASE Ill EASY TO USE! 
SUCCESSF ULLY —Alex Gersen/Alex Systems 
COMBINES THE 
FEATURES OF A POKERAUL 
DATABASE MANAGER WITH THE SIMPLICITY 
AND USER-FRIENDLINESS OF A FILE MANAGER. 
IT SETS THE STANDARD AGAINST WHICH ALL 
OTHERS WILL HAVE 10 BE COMPARED. 


—Jerry Schneider, Vice President/WBS & Associates 


ASHTON- TATE 
HAS O8V/OUSLY LISTENED 
TO THE END USERS. 


—Dave Browning, Chairman/ 
Database SIG, Capital PC Users Group 


THE DEGREE 
OF RESPONSIVENESS 
WHICH ASHTON- TATE HAS SHOWN 
IN ITS WILLINGVESS 70 L/STEN AND ADAPT 
TO USER WEED SHOULD GUARANTEE ITA 
COMMITTED FOLLOWING IN THE 
MICROCOMPUTER COMMUNITY. 


—Phillip Wood, Director of Data Processing/Search Institute 
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Cc Ch es f (Listing Continued, text begins on page 28) 
Listing Two 


87: 


90: 


98: 

99: 
100: 
16t: 
102; 
103: 
104: 
L03% 
106: 
107% 


108: 
109: 
110: 


Liu 
ace $ 
PLS 
114: 
TLS; 
116: 
te 
PTsS* 
119: 
120: 
L2t% 


Bice 
Leo 
124: 
iZo3 
126: 
AZ7s 
128: 
129: 
130: 
tal: 
132: 
kao? 
134: 
oye 
136: 


89: 


92: 
93: 
94; 
95% 
96: 
O22 


fprintf(stderr, "<Z%s>)\n", 
*(char **)tabp->variable); 
break; 


case PROC: 
fprintf(stderr, "-&4c<str> %Z-40s\n", 
tabp->arg, tabp->errmsg); 
break; 


} 
} 
#define ERRMSG “Illegal argument <Z%c>. Legal arguments are:\n\n" 


int getargs(argc, argv, tabp, tabsize ) 
int argc, tabsize: § 
char *¥*¥ argv 
ARG Featp. 24 
{ 
/* Process command line arguments. Stripping all command line 
* switches out of argv. Return a new argc. If an error is found 
* exit(1) is called (getargs won't return) and a usage message 
* is printed showing all arguments in the table. 
* 


register int nargc ; 
register char *¥narev, *p. 3 
register ARG *argp 


we 


narge = 1 3; 
for(nargv = +targv ; --arge > O ; argvt+ ) 
{ 
bECo**argy fe" =". \) 
{ 
*nargv++ = *argv ; 
nargct+t; 


else 
p = (*argv) + 1 ; 


while( ¥*p ) 
{ 
if(argp findarg(*p, tabp, tabsize)) 


p= setarg( argp,,.p 3 


else 


{ 
fprintf(stderr, ERRMSG, *p ); 
pr_usage( tabp, tabsize ); 
exitC€ i °)3 


} 
} 
Feturn narec.§ 


} End Listing Two 


Listing Three 


— 
ee 


WwW 


© WOON WU 


36 


a ARGTEST.C Test program for getargs. 
+ 


#include <stdio.h> 
#include "getargs.h" 


int boolarg 
int chararg 
int intarg : 

char *strarg = "doo wha™ ; 
extern proc(); 


0; /* Variables used by argtab */ 


ARG Argtab[ ]= 
(Continued on page 38) 
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Add EDITING 
to your 
Software 

with 
CSE Run-Time’ 


Your program can include all or a portion 
of the C Screen Editor (CSE). 


CSE includes all of the basics of full 
screen editing plus source in C for only 
$75. For only $100 more get CSE Run- 
Time to cover the first 50 copies that you 
distribute. 

Use capabilities like Full cursor control, 
block move, insert, search/replace or 
others. Portability is high for OSes, ter- 
minals, and source code. 


PROFESSIONAL PROGRAMMER’S BULLETIN: 


Be Productive, Be 


BRIEF’s power and flexibility provide 
dramatic increases in programming 
productivity. BRIEF’s ergonomically designed 
human interface becomes a natural extension 
of your mind, allowing you to eliminate 
tedium and concentrate on creativity. 


AVAILABLE FOR PC-DOS, IBM-AT, 
AND COMPATIBLE SYSTEMS 


ONLY £195. 


DEMO AVAILABLE FOR ONLY $10 
(applicable to future purchase) 


Call for the ‘‘CSE Technical Description’’ 
and for licensing terms and restrictions. 
Versions for PCDOS, MSDOS, CPM, more. 
Full Refund if > e 

not satisfied in Solution 
first 30 days. ystems 
Call 800-821-2492 335-D Washington Street 


Norwell, MA 02061 
617-659-1571 


¢ Multiple files, 
unlimited size 


e ‘“‘Regular 
Expression” search 


e Reconfigure 
keyboard = f ej 

e Language sensitive © U ion 
user controllable ystems m 


features (such as 
Auto-Indent for C) 


¢ WINDOWS 

¢ Full UNDO (N Times) 

¢ Compile within 
BRIEF 


CALL TOLL FREE 
800-821-2492 


for “Technical Description” or to order., 

¢ Keystroke Macros 

¢ Exit to DOS inside 
BRIEF 

¢ Programmable Macro 
Language 


H BRIEF is a trademark of UnderWare. 
# Solution Systems is a trademark of Solution Systems 


335-". Washington St., Norwell, MA 02061 
617-659-1571 





Circle no. 93 on reader service card. 


PROLOG-86" 


Become Familiar in One Evening 


Thorough tutorials are designed to help learn the PROLOG 
‘language quickly. The interactive PROLOG-86 Interpreter gives 
immediate feedback. In a few hours you will begin to feel comfort- 
able with it. In a few days you are likely to know enough to modify 
some of the more sophisticated sample programs. 


Sample Programs are Included like: 


@ an EXPERT SYSTEM 


M@ a NATURAL LANGUAGE INTERFACE 
(it generates a dBASE II “DISPLAY” command) 


@ a GAME (it takes less than 1 page of PROLOG-86) 


PROTOTYPE Ideas and Applications QUICKLY 


1 or 2 pages of PROLOG is often equivalent to 10 or 15 pages in 
“C” or PASCAL. It is a different way of thinking. 


Describe the FACTS and RULES without concern for what the 
computer will have to do. Maybe you will rewrite in another 
programming language when you are done. 


Programming Experience is not required but a logical mind is. 
PROLOG-86 supports the de facto STANDARD established in 
“Programming in Prolog.” 


AVAILABILITY: pRoLoG-86 runs on MSDOS, PCDOS. 


IBM AT or CPM-86 machines. We provide most formats. The price 


of PROLOG-86 is only $125. : 
Solution 
Full Refund if not ystems” 


Satisfied during 
first 30 days. 


800-821-2492 


Circle no. 75 on reader service card. 












DIFF and CMP — - for 







C Flow Chart— Shon carrarioncnors calleach other. 
C Beautifier — make source more regular and readable. 
GREP - search for sophisticated patterns in text. 


There are several other utilities that help with converting 
from one C compiler to another and with printing 
programs. 


C Helper is written in portable C and includes both full 









source code and executable files 
for $135 for MS-DOS, IBM AT 
CPM-80 or CPM-86. Use 

VISA, Master Card or COD. 


Call: 800-821-2492 






Sahiion 


335,Washington Street 


Norwell, MA 02061 
617-659-1571 







335-D Washington Street 
Norwell, MA 02061 


617-659-1571 





Circle no. 94 on reader service card. 
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C C, hes f (Listing Continued, text begins on page 28) 
Listing Three 


aS? oe 
12: { "pb", .-BOOLEAN, &boolarg, "boolean argument" Fe 
134 (.'c*, - CHARACTER, &chararg, "character argument" bs 
14: (-*n’ 5: -ENTEGRR: - &intarg, "integer argument" iS 
15: (Sed ORRIN. (int *)&strarg, "string argument" ry 
16: Loto PRC. (int *)&proc, "procedure argument" } 
tga: PS 
18: #define TABSIZE ( sizeof(Argtab) / sizeof(ARG) ) 
19s: proct str ) 
203. char Tetrs 
ar Pi 
22: printf("Inside procedure called by -p command line switch, "); 
23: printfC "string = <4e>\n", str)’ 
EGE er) 
25: main(argc, argv) 
26% int arecs 
Zfs. char **argv; 
26: «.[ 
29% register int i: 
30: printfEC"Argec ae 2d..",- argc); 
aL printf("Cmd line: argtest "); 
S23 Port ytw 2 “ot. f arge ¢-printtt "26", srevtis¢)) :) 
a3 ; 
34: printicC’ \n”): 
oat argc = getargs( argc, argv, Argtab, TABSIZE) ; 
36: printf£("Argc == 4d..", argc); 
37: printf’ Cmd. Line: argtest «*); 
38: for(i S41 .g3540 < ar ge 3s printt (2s. ",aresvtiezt}) 9 
29: ; 
40: printiG™\n 33 ee 
Ate 3 : End Listing Three 
Listing Four 
1 {*. STOT.C More powerful version of atoi. 
2 * 
33 * Copyright (C) 1985 by Allen Holub. All rights reserved. 
4: * This program may be copied for personal, non-profit use only. 
5: ~y 
6 #define islower(c) (gs tee Ce Be Cem eae he 
7 #define toupper(c) C(tebover te } sto Ce jee 26 ee OA Ye tee 
Gs -\ tne stoi(instr) 
9: register char **instr; 
Sas: 
4% /* Convert string to integer. If string starts with Ox it is 
12: * interpreted as a hex number, else if it starts with a 0 it 
Lat * is octal, else it is decimal. Conversion stops on encounteril 
14; * the first character which is not a digit in the indicated 
TS: * radix. *instr is updated to point past the end of the number 
16: ef 
ers register int num = 0Q ; 
18: register char *str ; 
19 int sign = 1 ; 
20: str = *instr; 
213 while(*str -2e 2%" || ° #str-ea t\t*® }|  *Satrlen *\n': ) 
eat str++ ; 
23% 1£€C *str =—_a "=" .) 
24: 
25:: sign = -l ; 
26: Str++; 
38 
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ZS } 


28: if(*str == '0') 

29: { 

303 ++Str; 

31: if (*str == 'x' || *str == 'X') 

32: { 

33° str++; 

34; while( (‘'O'<= *str && ¥*str <= '9') 

356 (‘a'<= *str && *str <= 'f"') 

36: (*A% Se Petr 8S str <a * FF"). ) 

373 { 

38: num *= 16; 

39: num += ('O'<= *str && *str <= '9') ? 
40: *str - ‘0’ : 
41; toupper(*str) - 'A' + 10 ; 
42: Sstrt+; 

43: } 

44: } 

45: else 

46: { 

47; while( 'O' <= *str && *str <= '7' ) 

48: { 

49; num *= 8; 

50: num += *str++ - '‘'O' 
STs } 

52:¢ } 


54: else 

ae { 

ee whilte(. “O".<w *str €&:.--¥str..<e "9". ) 
: { 

58: num *= 10; 

59: num += *str++ - 'O' 

60: } 

61% } 


e 
’ 


62: *instr = str; 
63's return( num * sign ); 


Gar. ~~} End Listings 


Have you been waiting on your slow floppy disk | Someday you'll get a SemiDisk. 
drives too long? SemiDisk Systems has a disk Until then, you'll just have to 
emulator for you! It'll put you in the fast lane, with 
ultra-fast data transfer, huge storage capacity, conve- 
nient battery backup, and a handy print spooler. SemiDisk I, $-100 $995 
SemiDisk II, S-100 $1295 $2549 
IBM PC, XT, AT $945 $2499 
QX-10,QX-16 $799 $2499 
TRS-80 II,12,16 $995 $2499 


Have you been waiting for a SemiDisk big enough 


to handle your large applications programs, files, and 
databases - all at once? Your wait is over. SemiDisk 
Systems is now delivering 2 megabytes of disk storage 
on a single board! 


Battery Backup Unit $150 
512k, 1Meg and 2Megabyte SemiDisks are available 
for S-100 computers, (including the H/Z-100 operat- SE, MI DISK 
ing under Z-DOS), IBM PC, XT, & AT, the TRS-80 Mod- 
els II, 12, & 16, and the Epson QX-10. Once you've SemiDisk Systems, Inc. 
tried a SemiDisk you'll know why we say. . . P.O. Box GG, Beaverton, Oregon 97075 
= 503-642-3100 


‘aaa Sieh | Call 503-646-5510 for CBBS/NW, 503-775-4838 for CBBS/PCS, and 503-649-8327 for CBBS/Aloha, all SemiDisk-equipped 
computer bulletin boards (300/1200 baud). SemiDisk, SemiSpool trademarks of SemiDisk Systems. 





Circle no. 85 on reader service card. 
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Using 

Decision Variables 
In Graphics 
Primitives 


by Tom Hogan 


“Graphics algorithms” is not a listing 
you'll find in the Collected Algorithms of 
the ACM, but graphics programming 


presents unique problems to the | 


software developer. 


46 


robed, grey-bearded men. A small platform stands 

at one end. Billows of purple smoke appear and out 
of the mist steps a tall man with white hair. He speaks and 
his voice fills the cavern. 

“Welcome, brethren. Tonight we shall consider how to 
guarde our Realme of Graphix from the uninitiated who 
would learn our Mysteries and divulge them. We will 
speake of Master Bresenham, who revealed to us the Se- 
crete of ye Mystik Circle.” 

Does the idea of graphics wizards jealously guarding 
their secrets seem strange? I can tell you that it didn’t 
seem so to me when I searched the literature for a routine 
that would map ellipses and couldn’t find one. 


P icture a vast subterranean cavern packed with 


Light in the Tunnel 

Thanks to a tip, I learned about Fundamentals of Inter- 
active Computer Graphics by James D. Foley and An- 
dries Van Dam (Addison Wesley, 1982). It contains an 
algorithm for plotting a circle using a decision variable 
(based on Bresenham’s algorithm). I used the decision 
variable method (hereafter referred to as the DV method) 
to derive the algorithm for plotting ellipses that is found 
in Listing One (page 45). 


The DV Method Generalized 

Although the DV method was used only to plot an ellipse, 
it can be used to plot other conic sections as well. In fact, 
the DV method can be used to generate any well-behaved 
curve that can be expressed as G(x, y) = 0. 


The DV Method Compared 

Speed is important in graphics applications. The DV 
method is fast because it adds, shifts, subtracts, and mul- 
tiplies integers, taking much less time than would be re- 
quired by floating-point calculations. 

An obvious method for plotting an ellipse is to calculate 
each point independently by incrementing x in unit steps 
and calculating y using square roots. This method is slow 
and generates a curve that is nonuniform when the slope 
of its tangent line falls below — 1 (see Figure 1, page 41). 

In contrast to the preceding method, the DV method 
does not calculate points independently. Instead, each 
succeeding point is mapped with reference to the point 
previously mapped. Furthermore, this method guarantees 
that succeeding points are adjacent. Therefore, the gener- 
ated curve is more uniform than the curve generated by 
calculating points independently (see Figure 2, page 41). 


Reduce the Number of Sample Points 

Eight adjacent points surround any previously mapped 
point. In order to use the DV method to map the curve, 
you must reduce the number of sample points from eight 
to two. The sign of the decision variable can only be posi- 


Tom Hogan, C Source, 12801 Frost Road, Kansas City, 
MO 64138. 
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tive or negative. The two possibilities correspond to the 
two sample points. 

Take the case of an ellipse mapped only in the first 
quadrant. Points 1, 2, 3, 4, and 6 (see Figure 3, page 42) 
can be discarded immediately when mapping from Point 
A to C (see Figure 4, page 42), because x never decreases 
and y never increases as the ellipse is mapped in that 
direction. Points | through 3 would require y to increase, 
while points 1, 4, and 6 would require x to decrease. 

This reduces the choice to three points: 5, 7, and 8. 
Which two are chosen as the set of sample points depends 
on the slopes of the line segments joining them and the 
last point plotted: the slope of the tangent line must fall 
within the range of the slopes of the two line segments for 
the region plotted. The slopes of the line segments of any 
two points must approach the slope of the tangent line as 
closely as possible. Thus, a set comprising Points 5 and 7 
would be excluded because it would violate this require- 
ment in the region close to B in Figure 4. There remain 
the possible combinations 5 and 8 and 7 and 8. Points 5 
and 8, corresponding to Points S and T in Figure 5 (page 
42), can be said to comprise set A. Points 7 and 8, corre- 
sponding to Points T and U in Figure 5, can be said to 
comprise set B. 





Figure 1 
Changing Sets of Sample Points Circle generated by 


From Point A to B (Figure 4), set A is used because the calculating points independently. 
slope of the tangent falls within the range delimited by the : 
slopes of PS and PT (Figure 5). The decision variable is 
initialized to its value at Point A (see Equation 9 or 10 in 
the Table on page 44). The quantities to be added to it are 
based on the sample points in set A (Equations 6 and 8). 

When the slope of the tangent line reaches — 1 (at Point 
B in Figure 4), set B is used (see Figure 6, page 42). The 
value of the decision variable is recalculated (Equation 11) 
at Point B for set B. The quantities that are added to the 
decision variable are now based on set B (Equations 13 and 
15). 


Expansion on General Applications 

Please note a key feature of the DV method: the choice of 
the sample points depends on the slope of the tangent line 
and the direction of its change. A curve can be broken up 
into sections for plotting, based on the range of the slope 
of the tangent line in each section. The method is useful 
for a broad spectrum of curves. 


Example: The Ellipse 

The initial value of y depends on the position of the major 
axis. If it is vertical, y is Rm, half the length of the major 
axis. If horizontal, y equals R,, multiplied by the aspect 
ratio. The positions of the major and minor axes depend on 
the aspect ratio. If it is less than one, then the major axis is 
horizontal. If greater than one, it is vertical. 

Long variables were used in this routine instead of inte- 
gers or doubles in order to provide the widest range of 
values for the aspect ratio and R,, while retaining reason- 
able plotting speed. Integers limited the ellipse’s size too 
much, while doubles were too slow. 










Figure 2 


Circle generated by _ 
the Decision Variable Method. __ 
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The lower limit for the aspect ratio is 0.004 and R,, 
must not exceed 154. Otherwise, the values of some of the 
long variables will overflow. 

This algorithm takes advantage of the symmetry of an 
ellipse. The ellipse is symmetric about the x and y axes, 
and about its center. Therefore, an ellipse need only be 
mapped in the first quadrant. The other three quadrants 


: 


| Figure 3 
Last point plotted with eight adjacent points. 


Set A ~*~ 


P11) S(X)_4 + 1, Yi_4) 


The slope of PS is 0. 
The slope of PT is —1. 


‘\ 
ideal Ellipse 


P._ is the last point plotted. 
S; and T; are the sample points. 


Figure 5 


Last point plotted and sample points in the region 
where the slope of the tangent line 
is greater than —1. 
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are easily plotted. 
Clipping is done by the routine in Listing Two (page 
48). The algorithm assumes medium resolution. DD) 


(Listings begin on page 45) 


Reader Ballot 
Vote for your favorite feature/article. 
Circle Reader Service No. 193. 


Set A of the sample points is used 
over AB. Set B is used over BC. | 


A Slope =0 


B Slope = —1 


C Slope = Undefined 


Figure 4 
First quadrant of an ellipse. 


\ 


P4'%_ Yio! 


The slope of PT is —1. 
The slope of PU is 
undefined. 


TK. HY, 1) 


ideal Ellipse 
\ 


P._. is the last point plotted. 
U; and T, are the sample points. 


Figure 6 


Last point plotted and sample points in the region 
where the slope of the tangent line is less than 
or equal to —1. 
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More Power Than You Thought Possible 


Arity offers the first serious implementation of Prolog for IBM personal computers. Arity/Pro- 
log is a powerful, highly optimized, and extended version of the logic programming 
language Prolog. Imagine building software applications with a language that solves prob- 
lems through deduction and logical inference. The task of creating complex programs is 
much faster and easier, resulting in lower development costs. Arity/Prolog is now in use ina 
wide range of applications in industry, business, research, and education. The solution— 
the Arity/Prolog Interpreter: 


i Interface to assembly 


@ Source level debugger language and ‘C’ 


B Virtual databases, each Mi Text screen 

with a workspace of 16 manipulation 

megabytes 

gay @ Integrated program- 

B Floating-point ming shell to MSDOS 

arithmetic 

| Comprehensive set of 

B String support for evaluable predicates 


efficient text handling ® Definite clause 


grammar support 





Arity/Prolog Interpreter $495.00 
Arity also offers the Arity/Prolog Compiler and Interpreter, a sophisticated development envi- 
ronment for building Al applications. Essential for producing fast, serious production code. 


Arity/Prolog Compiler and Interpreter $1950.00 


The Arity/Prolog Demo Disk is available for $19.95. i Arity/Prolog products run on the IBM PC, 
XT, AT, and all IBM compatibles. i To order, call (617) 371-2422 or use the order form below. 


— arity corporation 358 Baker Avenue, Concord, MA 01742 


| Product | UnitPrice | Total Price 


Subtotal 










Name 


Organization 








Address 





(1) Enclosed is a check or _) Please bill my 
money order to Arity Corporation (1) Mastercard ()Visa (J) American Express 1 
MA residents add 5% sales tax 
i / t Painieaks cap ln aa gh Ali gr pat Aa A : 
= " signature 1 Please send me more information about 
Arity and Arity/Prolog 
—— @PFICY 358 Baker Avenue, Concord, MA 01742 M-AD-0" 


Circle no. 16 on reader service card. 






own. ats of a an eles oe ee 


a oe af = 0. Eq. 1. 


heciore define an error term DIP) such that at any sample > 


| = P, along the curve: 


| DP) = aY2 + Be —o8. Eq. 2 
Define two points S; and T; relative to P;_; such that P; will 
be selected from one of these two points (see Figure 5). 
Define a decision variable d; such that: _ 

d, = D(S) + D(T). Eq. 3 
Notice that if the curve passes midway between S; and Tj, 
d; = O. Further notice that: 


1) if the curve passes is the midpoint, d; < O, and 
2) if the curve passes below the midpoint, d, > 0. 


Therefore: 


1) if dj < O, we choose §S;, and ~ | 
2)ifd| >= 0, we choose |. _ 


The quantity to add to d;, depending on whether S; or T; is 
chosen, must be determined. The value of d; for S, and T; 
must first be determined: . 


d; = DIS) + DIT). _ 
dj = aY?_, + BX A ed tv 1 IP 
+BM44+ 1-06 
d; = aY7_, + a Y\- ve + 281K, 4 — 1)2 
— 208. 












Eq. 4 
Determine d,+1 if Sis chosen: | 


dit = oY? , + 6%. + 2 —af +a; 1-12 — 
- B(K_ 4 +2) ne ap. 

dizi = aY?_, + al ¥;-1 — 1)? + 26(X_1 + 2)? 
—2ag. Ea & 

Define A,, the difference between d;..; and d; if S;is chosen: 


ce di+1 ce G. 

3. = 20K. 1 + 2)2 — 26(X\_, + 1/2. 

= 28(2X%,_, + 3). 
: = ABX;_, + 68. Eq. 6 
Now calculate the quantity to be added to d; if T; is chosen: 


G41 = alY¥i-1 — 17° + BX_,; + 2)? —af8 


Table 
Derivation of the algorithm to map an ellipse. 


will be sufficient to check the new set of points (.a 









Ce ae 
d.,= oA¥_, — 1) + alY_, — 2) 
+ 2B(X i 2)2 _ 2aB. 





Define Ar, the difference between Ot and d; when 7, is 2 
chosen: _ 


Ar = Gii- d; * . 
Ay = 201% + 2) — 26l(K-1 Le 
+ alY;_1 — 2)2 — ae _ _ 
Ar = 486X\-1 + 66— an + 4a. Eq. 8 
Now the value of d; for the initial point, which is located on 
the Y-axis, must be determined. R,n is half the length of the 
major axis. If the Y-axis is the major axis, the initial ae is 
the point P(O, R,,). Therefore: : 
di = 2aRA— 2aR, + a + 28—2as. Eq.9 
lf the X-axis is the major axis, the initial point is the point 
P(O, (8/a)XRm ). Therefore: _ 
R2,— 26Rm Eq. 10 


= (287/a) X +a+t 26-— 2a. 


Consider now the slope of a line tangent to the ellipse. Be- 
ginning with the original point, it can be guaranteed that the - 
slope of the tangent line will always decrease while the - 
ellipse is being mapped in the first quadrant. Therefor / 
once the slope of the tangent line reaches —1, it will never 
be greater than —1. Also, it may be seen that from 


point where the slope of the tangent line reaches —1 | 






| throughout the rest of the first quadrant, for any point P;_ 1. 
mapped, T; will be closer than S;. At some point, the ellips > 










will diverge enough from the tangent line of slope — 1 f 
point U; (see Figure 6) to be closer to the ellipse tha 


from the point where the tangent line’s slope become 
d; must be recalculated, as must Ay and Av. Calculate d 


di = alYi-1 — 1° + OX-1 + 177 a6 
+ a(Y;-; — 1)2 + BX2_,— af. - 
dj — 2alYj_3 es 1)2 + exe, 


+ AA-74 + 1° — Zep. Eq. 11 
Determine d;.; if T; is chosen: 
dir = 2alYi1 — 2)2 + (X17 +1)? a. 
+ BK; + 2) — 28. | Eq. 12. 


Define A; as the difference between d; and d,.; i 
chosen: - 
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Dec ISI on Var. tables (Text begins on page 40) 
Listing One 


be 


+ + + Fe FF OF FH FO OO OHH 


#define 
H#define 


#define 
#define 
#define 
#define 


#define 


* 


compiled 11/28/84 under Lattice C Compiler ver. @ai3 


ellipse.c 

by Tom Hogan 
Version 2.0 
Copyright 1984 
by C Source Inc. 
ALL rights reserved. 
Permission is granted 
for unlimited 
personal, non- 
commercial use only. 


For answers to questions, 
please write to: | 


Tom Hogan 

C Source Inc. 

12801 Frost Road 
Kansas City, MO 64138 


If you would rather call, 
our number is (816) 353-8808. 


Please call between 9 AM 
and 5 PM CST, Monday thru 
Friday. Calls can only 


returned on a collect basis. 


ERROR O 
SUCCESS: 7 
MAX COL 319 
MAX ROW 199 
MIN COL 0 
MIN ROW 0 


/* a macro used in the error-checking code */ 
inrange(a,x,b) (Ca) <= (x) && (x) <= (b)) 
the bounds of the following array can be set for different * 


graphics modes; this array is used in the assembly algorithm * 
Listing 2 to write individual pixels. * / 
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Dec ision Var, lables (Listing Continued, text begins on page 40) 
Listing One 


int CRT_BNDSCJ = € MAX_COL, MAX_ROW, MIN COL, MIN ROW }; 
/* r_sub_m is half the length of the major axis */ 


ellipse(x, y, r_sub_m, color, aspect) 
int x, y, r_sub_m, color; 
double aspect; 
{ 
int two_x, two y, or color; 
int col, row, rel_x, rel_y; /* rel_x and rel_y are relative */ 
double square aspect; /* to the center */ 
Long temp, beta, alpha, two_alpha, four_alpha, two beta, four beta, d; 


/x* d is the decision variable */ 
/* error checking follows */ 


if (Caspect < 0.004) || !inrange(O, color, 15) || !inrange(1, r_sub_m, 
154)) ¢ 
printfC"ELLIPSE (Xd, %d, %d, Xd, %f) - BAD ARG\n", x, y, r_sub m, 
color, aspect); 
return ERROR; } 


Square aspect = aspect * aspect; /x initialize the beginning row */ 
if (aspect < 1.0) ¢ /* and set the values of x / 
alpha = r_sub_m * r_sub m; /* constants */ 


beta = alpha * square aspect; 
row = y + r_sub m * aspect; } 
else { 
beta = r_sub_m * r_sub m; 
alpha = beta / square aspect; 
row =.-y +r sub mz. 3 
if (alpha == OL) alpha = 1L; /x compensates for very small ellipses */ 
if (beta == OL) beta = 1L; 
or_color = Oxc00 | color; /* sets the high byte for a screen interrupt */ 


col = x; /* initializes the beginning column */ 
two «= x) << 13 
twoy=y << 1; 


ret yy = row = ¥; 
two_alpha = alpha << 1; 
four_alpha = alpha << 2; 
four_beta = beta << 2; 
two beta = beta << 1; 


/* initialize the decision variable -- Eq. 9 or 10 */ 
d = two_alpha * ((rel_y - 1) * rel_y) + alpha + two beta * (1 - alpha); 


/* when the slope <= -1, choose the new set of points */ 
/* oe EG er */ 


while Calpha * (rel_y = row - y) > beta * (rel_x = col - x)) ¢ 
write pix(col, row, two_x - col, two_y - row, or_color); 
if (d >= 0) Cf 


g.+#.. four alpha *. (1 = rely); /*x Eq. 6; also first */ 

row--; >} /x half of Eq. 83 */ 
d += two beta *.(3.+ (Creliix << 1)); /* second half of Eq. 8 */ 
colts} 


/x initialize the decision variable for the rest of the ellipse */ 
/* oe Eg. 44 * / 


d = two beta * (rel_x * (rel_x + 1) + two_alpha * (rel_y * (rel_y - 2) 
+ 1) + (1 - two alpha) * beta; 


while (Crel_y = row - y) + 1) ¢ 
write pix(col, row, two_x - col, two_y - row, or_color); 


if (d <= 0) { /x col - x == rel_x */ 
gf=" Tour beta * (1 + col =. x); f* Ea, 15s also first x/ 
cott++: > /x half of Eq. 13; * / 
row--; 


(Continued on page 48) 
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Development Tools That Work 


Avocet cross-assemblers are fast, reliable 
and user-proven in over 4 years of actual 
use. Ask NASA, IBM, Xerox or the 
hundreds of other organizations that use 
them. Every time you see a new micro- 
processor-based product, there’s a good 
chance it was developed with Avocet 
cross-assemblers. 


Avocet cross-assemblers are easy to use. 
They run on almost any personal com- 
puter and process assembly language for 
the most popular microprocessor families. 


Your Computer Can Be A 
Complete Development System 
Avocet has the tools you need to enter 


and assemble your soft-ware and finally 
cast it in EPROM: 


VEDIT Text Editor makes source code 
entry a snap. Full-screen editing plus a 
TECO.-like command mode for advanced 
tasks. Easy installation - INSTALL pro- 
gram supports over 40 terminals and 
personal computers. Customizable 
keyboard layout. CP/M-80, CP/M-86, 
PESOS FRED ir. cen Geet nt $150 


EPROM Programmers let you pro- 
gram, verify, compare, read, display 
EPROMS but cost less because they 
communicate through your personal 
computer or terminal. No personality 
modules! On-board intelligence provides 
menu-baged setup for 34 different 
EPROMS; EEPROMS and MPUs (40-pin 
devices require socket adaptors). Self- 
contained unit with internal power supply, 
RS-232 interface, Textool ZIF socket. 
Driver software (sold separately) gives 
you access to all programmer features 
through your computer, lets you down- 


load cross-assembler output files, copy 
EPROM to disk. 


Model 7228 Advanced Programmer 
— Supports all PROM types listed. Super- 
fast “adaptive” programming algorithm 
programs 2764 in 1.1 minutes. 


Model 7128 Standard Programmer — 
Lower-cost version of 7228. Supports all 
PROM types except “A” versions of 2764 
and 27128. Standard programming algo- 
rithm programs 2764 in 6.8 minutes. 
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Model 7956 and 6-SA Gang Pro- 
grammers — Similar features to 7228, 
but program as many as 8 EPROMS at 
once. 7956-SA stand-alone version copies 
from a master EPROM. 7956 lab version 
has all features of stand-alone plus RS- 
232 interface. 

EPROM: 2758, 2716, 2732, 2732A, 2764, 2764A, 
27128, 27128A, 27256, 2508, 2516, 2532, 2564, 68764, 
68766, 5133, 5143. CMOS: 27C16, 27C32, 27C64, 
MC6716. EEPROM: 5213, X2816A, 48016, 12816A, 


5213H. MPU (w/adaptor): 8748, 8748H, 8749, 
8749H, 8741, 8742, 8751, 8755. 


7228 Advanced Programmer $ 549 
7128 Standard Programmer 429 
7956 Laboratory Gang Programmer 1099 
7956-SA Stand-Alone Gang Programmer 879 
GDX _— Driver Software 95 
481 8748 Family Socket Adaptor 98 
511 8751 Socket Adaptor 174 
755 8755 Socket Adaptor 135 
CABLE RS-232 Cable (specify gender) 30 


HEXTRAN Universal HEX File Con- 
verter — Convert assembler output to 
other formats for downloading to de- 
velopment systems and target boards. 
Also useful for examining ubject file, 
changing load addresses, extracting parts 
of files. Converts to and from Intel, 
Motorola, MOS, RCA, Fairchild, Tek- 
tronix, TI, Binary and HEX/ASCII Dump 
formats. For CP/M, CP/M-86, MSDOS, 
WET oii a ae eas Sea kes $250 


Ask about UNIX. 


Circle no. 10 on reader service card. 
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Would you hire an entire band when 
all you need is one instrument? Of 
course not. 


So why use a whole orchestra of 
computers when all you need is one 
to develop software for virtually any 
type of micro-processor? 


The secret? Avocet’s family of 
cross-assemblers. With Avocet 
cross-assemblers you can develop 
software for practically every kind of 
processor — without having to 
switch to another development 
system along the way! 





68000 CROSS-ASSEMBLER — With 
exhaustive field testing completed, our 
68000 assembler is available for imme- 


diate shipment. XMAC68K supports 
Motorola standard assembly language for 
the 68000 and 68010. Macros, cross- 
reference, structured assembly statements, 
instruction optimization and more. Linker 
and librarian included. Comprehensive, 
well-written manual. 


To find out more, call us toll-free. 


1-800-448-8500 


(in the U.S. Except Alaska and Hawaii) 


VISA and Mastercard accepted. All popular disc formats now available 
--please specify. Prices do not include shipping and handling -- call for exact 
quotes. OEM INQUIRIES INVITED. 


*Trademark of Digital Research **Trademark of Microsoft 









AVOCET 
SYSTEMS INC: 


Sales and Development: 
10 Summer Street 

P.O. Box 490, Dept. 
Rockport, Maine 04856 
(207) 236-9055 Telex: 467210 AVOCET CI 


Corporate Offices: 
804 South State Street 
Dover, Delaware 19901 
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from your C programs 
with 


PC—LINT 


PC—LINT analyses your C programs (one 
Or many modules) and uncovers glitches, 
bugs, quirks and inconsistencies. It will catch 
subtle errors before they catch you. 


PC—LINT resembles the Lint that runs on 
the UNIX O.S. but with more features and 
greater sensitivity to the problems of the 
8086 environment. 


© Full K&R C 


¢ Supports multiple modules—finds incon- 
sistencies between declarations and use 
of functions and data across a set of 
modules comprising a program. 


© Compares function arguments with the 
associated parameters and complains if 
there is a mismatch or too many or too 
few arguments. 


¢ All warning and information messages 
may be turned on and off globally or 
locally (via command line and comments) 
so that messages can be tailored to your 
programming style. 

¢ All command line information can be 
furnished indirectly via file(s) to auto- 
mate testing. 

¢ Use it to check existing ioe, pro- 
grams about to be exported or imported, 
as a preliminary to compilation, or prior 
to scaling up to a larger memory model. 

° All one pass with an integrated pre- 
processor so it’s very fast. 

¢ Has numerous flags to support a wide 
variety of C’s, memory models, and 
programming styles. 

© Price: $98.00 MC, VISA 


(includes shipping and handling) PA residents add 6% 
sales tax. Outside USA add $10.00. 


© Runs on the IBM PC (or XT, AT or 
compatible) under DOS 2.0 and up, with 
a minimum of 128KB of memory. It will 
use all the memory available. 


GIMPEL SOFTWARE 


3207 Hogarth Lane © Collegeville, PA 19426 
(215) 584-4261 


* Trademarks: IBM (IBM Corp.), PC—LINT (Gimpel Softwa 
UNIX (AT&T) eee 
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Dec ISI on Var ables (Listing Continued, text begins on page 40) 
Listing One 


d += two alpha * (3 - (rel_y << 1)); } /* second half of Eq. 13 */ 
return SUCCESS; } 


/* write pix writes four points to the screen, taking * 
* advantage of the ellipse's four-way symmetry * / 


write pix(col, row, neg col, neg row, or color) 
int col, row, neg col, neg row, or color; 


{ 

_pixasm(col, neg row, or color); /* symmetry -— y axis */ 
_pixasm(neg col, neg row, or_color); /* symmetry -- center */ 
_pixasm(neg col, row, or color); /* symmetry -- x axis */ 
_pixasm(col, row, or_color); } /* mapped point x / 


End Listing One 
Listing Two 


8086 Assembly function that clips against the screen bounds 


_pixasm(x, y, type color) 

int x, y, type_color 
type - get or read pix in hi byte 
color - if set pix, in lo byte 


me Ve Re Be Be 


DGROUP GROUP DATA 
DATA SEGMENT WORD PUBLIC ‘DATA’ 
ASSUME 0S:DGROUP | 


EXTRN CRT_BNDS:WORD 

PGROUP GROUP PROG 

PROG SEGMENT BYTE PUBLIC 'PROG' 
ASSUME CS:PGROUP 
PUBLIC pixasm 


_pixasm proc near | 
set return address | 


push bp s 
mov bp, sp 
mov cx, [bp+4] 3; set x (column) 
cmp cx, CRT_BNDS ; check for max x value | 
jg BYE | 
cmp cx, CRT _BNDS+4 ; check for min x value | 
jl BYE 
mov dx, Cbp+6] 3 set y Crow) 
cmp dx, CRT_BNDS+2 ; check for max y value 
jg BYE 
cmp dx, CRT _BNDS+6 ; check for min y value 
jl BYE 
mov ax, Cbp+8] , set color (al) / fen number (ah) 
int 10h 3 do video interrupt 
sub ah, ah 
BYE: pop bp > reset frame pointer 
ret ; bye! 


_pixasm endp 
PROG ends 
DATA ends 
end 


End Listings 
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“It's Time Someone Got Serious 
About The CRITICAL Issues 





‘The Industry has a responsibility to the 
buying public to stop using MIRRORS to 
promote VAPORWARE claims about multi- 
user software capabilities. Many complex 
and potentially DANGEROUS situations 
exist for any software that runs in a multi- 
user /LAN environment. Partial solutions 
may be acceptable when using word 
processing or spreadsheet applications, 
however Data Base Management Systems 
demand complete solutions. Unlimited 
Processing Incorporated has devoted millions 
of dollars and three and one half years 
developing the expertise necessary to present 
a true interactive multi-user DBMS and 
APPLICATION DEVELOPMENT 
ENVIRONMENT. 


George Treiber 
President, UP, Inc. 


To evaluate ‘‘multi-user claims,” you 


e IS IT REALLY MULTI-USER, NOT MERELY 
RESTRICTED SINGLE-USER? 


INFORMA Is!. 


Can an unlimited number of simultaneous users: 
Access the same file? 
Poa Me seer betes stam ti meltsiacaitt sort orders? 
Access the same record? 
Update the same record? 
Enter new records into the same file? 


Does the system prevent one user from changing 
the appearance of the database while another user 
is reviewing that data? 


DOES IT REALLY MANAGE YOUR 
DATABASE, NOT JUST STORE DATA? 


INFORMA Does! 


Mega) complete transparency to users does it: 
Allow data files to reside on different disk 
drives? 


Keep track of the existence and location of data 
files for all applications? 


Eliminate data compression and other time 
consuming operations? 


Permit data file movement for disk balance? 


Concerning LAN Software’ 





must ask the following questions 


¢ IS DATA INTEGRITY GUARANTEED, 
INSTEAD OF ACCEPTING DATA LOSS AS 
AN INEVITABLE RISK? 


INFORMA Guarantees! 


Can you be assured one update will not overwrite 
another when two or more users simultaneously: 
Change the same record? 
Change adjacent records? 


IS COMPLETE SECURITY EMBEDDED 
THROUGHOUT THE SYSTEM, NOT 
MERELY AN AFTERTHOUGHT? 


It Is With INFORMA 


Are multiple levels of user security offered? 
Can each activity be secured by specific user? 
Can applications be secured by specific user? 
Can audit trails be created by user and 
application? 

Can the functions find, enter, update, delete, 
and print be secured by user and application? 


IS IT FAST ENOUGH TO BE EFFECTIVE, 
NOT TOO SLOW TO BE USEFUL? 


INFORMA Has Unequaled Speed! 
Retrieve any record in less than 1 sec? 


Blea eee Oca cor eke hme e che 
As the number.of records increases? 
As the number of users increases? 


INFORMA offers the only serious solution to Interactive, Real-Time, DataSharing. 





UNLIMITED PROCESSING 
INCORPORATED 


8382 Baymeadows Road, Suite 8 
Jacksonville, Florida 32216 

(904) 731-8330 and (800). 874-8555 
Telex 350754 (800) 874-4185 


Introductory Offer 
LAN/ Multi-user 


$399 


regularly $1495 








Single-user 


$199 


regularly $795 


Offer Expires April 10, 1985 


Circle no. 87 on reader service card. 


Solid Shape Drawing on the 
Commodore 64 





by Richard Rylander 
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omputer graphics is one of the 
i fastest growing areas of com- 

puter software and hardware 
development. The old saying that 
“one picture is worth a thousand 
words” couldn’t be truer when you 
consider the effectiveness of a pie 
chart or bar graph versus columns of 
numbers. Even the simplest of home 
computers is capable of at least this 
basic form of computer graphics. But 
the term computer graphics usually 
brings to mind more exciting images 
than just mundane _ business 
applications. 

Special visual effects for motion 
pictures and some television adver- 
tisements are now being done with 
computers to create scenes of “‘en- 
hanced reality.” We see spacecraft 
making impossible manuevers or 
shimmering corporate logos “flying 


easy-to-use graphics capabilities to 
the masses. The “‘masses,”” however, 
may still find the Macintosh pricey, 
especially if they just want to play 
around a bit with MacPaint. Low- 
cost computers, such as the Commo- 
dore 64, while lacking the slick 
graphic interaction of the Mac, are 
selling for such ridiculously low 
prices ($150 at the time of writing 
this article) that they are hard to pass 
up. They have the potential for some 
fairly sophisticated graphics, but so 
far most of the commercially avail- 
able software has done little more 
than add the usual “point plotting” 
and “line drawing” commands. 

This article describes a software 
package that will allow you to create 
your own computer-generated 
scenes, such as “‘Coffee and Donuts” 
in Figure 1 (page 55) and “‘Goblets” 


Pumping pixels requires tight, efficient code. Here 
are halftone shading, backlighting and other visual 
effects in a tight little package. 


by” in ways that would be difficult to 
simulate with conventional photo- 
graphic techniques. The enormous 
amount of data and processing neces- 
sary to produce such images has 
made the use of “super computers” 
essential. Even with the largest com- 
puters working full time on the task, 
only a few feet of film are produced 
per day. For home computer owners 
who want to create their own com- 
puter-generated masterpiece, howev- 
er, the task is not hopeless. 

The Apple Macintosh represents a 
major step in bringing powerful, 


Richard Rylander, 179 N. McKnight 
Rd. Apt. 203, St. Paul, MN 55119. 


in Figure 2 (page 55). You can con- 
struct images from combinations of 
elementary shapes (spheres, cylin- 
ders, and toroids in various orienta- 
tions) or by the “polygon mesh” tech- 
nique typically used to render more 
complex objects. You can produce 
drawings with realistic shading ef- 
fects and in a variety of styles to 
make some surprisingly detailed pic- 
tures with a minimum of effort. The 
package includes demonstration pro- 
grams to illustrate how you use each 
graphic function and style option. 

In keeping with the “running light 
without overbyte” theme of DDJ, the 
entire graphics package fits in 3K of 
RAM. The program sits in an area of 


Dr. Dobb’s Journal, May 1985 


RAM that is inaccessible to BASIC (a 
4K block following the BASIC ROM) 
so that you don’t lose any useful pro- 
gram space. Commodore supplies a 
“DOS Wedge” program that occu- 
pies the last 1K of this block, and one 
of my objectives in the design of the 
graphics package was to maintain 
compatibility with this useful utility. 

The compactness of the code re- 
quired me to leave out some “bells 
and whistles,” but I’ve made no sacri- 
fices to execution speed or user-inter- 
face ease. The main omission is error 
trapping—the software performs no 
checking to ensure that you use only 
“legal” point coordinates and so on. 
This may make program develop- 
ment a little more difficult, but once 
you have written and debugged a pro- 
gram properly, error checking be- 
comes extraneous and only slows pro- 
gram execution. 

We must address several general 
tasks in developing a shape-drawing 
program. The first is, of course, how 
to calculate the apparent brightness 
for all points on visible surfaces of ob- 
jects. Next, how do we display these 
different brightness levels on a high- 
resolution display that is basically on 
or off? Finally, a “general” task, but 
detailed in nature, is creating the spe- 
cific software tools that will let us do 
the required calculations and bit-map 
manipulations. 

The program itself is written in 
machine language, because even with 
our simplifying restrictions, the plot- 
ting of each pixel still involves consid- 
erable computation. The program 
uses integer arithmetic throughout, 
and we utilize all the symmetry avail- 
able to eliminate redundant calcula- 
tions. The main program actually 
consists of five separate subprograms 
to break the process into manageable 
pieces and to provide a library of sep- 
arate utilities that you may find use- 
ful in other programs. Before getting 
into the problem of shade calculation, 
I’ll present the first subprogram, 
which is a collection of integer arith- 
metic utilities that all the later sub- 
programs need. 


Integer Arithmetic Utilities 


Listing One (page 61) provides the 
source code for a set of four integer 
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arithmetic routines. Because we will 
draw our shaded shapes on a high- 
resolution display of 320 x 200 
points, we need only single-precision 
arguments for most functions and 
double-precision results for some in- 
termediate values. 

The first two routines, multiplying 
two single-precision numbers to yield 
a double-precision product and divid- 
ing a double-precision dividend by a 
double-precision divisor to yield a 
double-precision quotient, are fairly 
standard routines that should need no 
description other than the comments 





























NEW Ver. 3.1 


Enhanced portability. 
Topview compatible. 
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Advanced 
Screen Management 
made easy 


Now a professional software tool from 
Creative Solutions. 


WINDOWS FORC™ 


More than a window display system, 
WINDOWS FOR C is a video tool kit for all 
screen management tasks. 


@ Pop-up menus and help files 
@ Auto memory management 
@ Keyboard interpreter 
@ Word wrap 
@ Auto scroll 
@ Highlighting 
@ Color control 
@ Overlay and restore 
@ Plus a library of over 50 
building block subroutines 
Designed for enhanced portability. 
Easy to learn, easy to use. 


Once you’ve tried WINDOWS FOR C, 
you ll wonder how you ever managed without it. 


7 Richford, VT 05476 







in the code. The multiplication rou- 
tine also contains a special case to 
treat a single-precision number as a 
signed integer, which is then squared. 

The integer-square-root routine 
deserves some special comment. 
Have you ever tried the BASIC 
square-root function? If you have, 
you know it takes about 52 millisec- 
onds. At this rate, plotting the 64,000 
pixels of a 320 x 200 screen would 
take about 3,328 seconds, or nearly 
an hour, if we need a square root per 
point! Of course, we don’t need a 
square root for each point, but it is an 


Full support for IBM PC/XT/AT and compatibles, plus interfaces for non-IBM computers; 
Lattice C, CI-C86, Mark Wm. C, Aztec C, Microsoft C, DeSmet C (PC/MSDOS), 


Creative Solutions 
| AY 





21 Elm Ave., Box T4, 


WINDOWS FORC$195 2am 

(specify compiler & version) | ae tee | 802-848-7738 
Demo disk and manual $ 30 SS _ Master Card & Visa Accepted 
(applies toward purchase) || i” \.f | | Shipping $2.50 

Full source available. VT residents add 4% tax. 


Circle no. 27 on reader service card. 
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essential part of many shade calcula- 
tions. Obviously, anything we can do 
to speed up this particular function 
will have a great effect on the overall 
program speed. 

The BASIC square-root routine is 
slow because BASIC is written to save 
space, not time. Virtually all small 
BASICs find a square root by first 
taking the log of the argument, divid- 
ing that result by 2, and then expon- 
entiating. Because LOG and EXP 
functions are already available, why 
use any more space than necessary to 
derive SQR? 

One way to speed up this function 
is to use Newton’s method, an itera- 
tive procedure that can give full float- 
ing-point precision in less time. Be- 
cause we are interested only in 
integer results, we can do much bet- 
ter yet, though. 

The method we actually use is es- 
sentially as fast as doing a single-di- 
vide operation. We construct the root, 
bit by bit, in a manner similar to the 
way we would take a decimal square 
root by hand using pencil and paper 
(does anyone remember how to do 
that in this age of electronic calcula- 
tors?). The process is even easier for a 
binary root because the guesses are, of 
course, only | or 0. The procedure is 
almost identical to that for division: 
we guess a partial root bit (as we 
would guess the next quotient bit) 
and, in effect, compare the square of 
the partial quotient to the argument to 
see if we keep the 1 guessed or change 
it to a O and restore the argument. For 
more details about this procedure, I 
recommend section 17.3, ‘“‘Binary 
Square Roots—Restoring Method,” 
of the book The Logic of Computer 
Arithmetic by Ivan Flores (Engle- 
wood Cliffs, NJ: Prentice-Hall). 

The last integer arithmetic routine 
is a fast procedure for generating 
pseudo-random bytes. An old and 
popular method for generating pseu- 
do-random numbers is the so called 
congruential method, in which you 
derive each successive random num- 
ber from the previous random num- 
ber by multiplying by a suitably cho- 
sen constant and taking the product 
modulo P, where P is a large prime 
(see, for example, “A Better Random 
Number Generator,” by H. Cem 
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Kaner and John R. Vokey in the June 
1984 issue of MICRO). Again, 
though, because we are interested 
only in generating random bytes, we 
can use a much faster routine. 

The method we use is to store two 
previous random bytes, exclusive OR 
them bit by bit, and rotate the result 
to the right by one bit to generate a 
new random byte. Because it needs 
no multiply or divide operations, pro- 
vides a fairly uniform distribution of 
random bytes, and has a long period, 
this process is fast. Note that even 
though we are only generating ran- 
dom bytes (0-255), the pattern or se- 
quence of successive bytes doesn’t re- 
peat until after 35,805 calls to the 
random-number-generator routine 
(for the initial parameters used in the 
program). The long period is neces- 
sary to ensure that we won’t produce 
any unwanted secondary patterns in 
what should be “randomly” shaded 
images—the human eye is adept at 
picking out such correlations. 

Now that some low-level number 
crunching is out of the way, we can 
concentrate on the graphics aspects 
of the main program. 


Graphics Utilities 
Listing Two (page 62) provides the 
source code for the elementary 
graphics functions of displaying and 
clearing the bit-map, filling the color 
map (determining dot/background 
colors), and plotting (and unplotting) 
individual points both directly and 
with the plot or unplot decision 
weighted by a shade value and a par- 
ticular shade style function. The 
PLOT (and UNPLOT), CLEAR, COL- 
OR, GRFON (display graphics 
screen), and GROFF (return to text 
screen) routines are specific to the 
Commodore 64. To adapt this pro- 
gram for other 6502-based comput- 
ers, you need to rewrite these rou- 
tines, but the rest of the graphics 
package (save the final user interface 
to BASIC) is machine independent. 
The SHADE routine is simple and 
straightforward. We set up an 8x 8 
threshold matrix as a linear array of 
values 0 to 63. The six bits we need to 
address an element of this threshold 
array are determined by masking off 
the lower three bits of the absolute X 


and Y screen coordinates (we take X 
modulo 8 and Y modulo 8) with the 
Y bits shifted to become the upper 
three bits. This effectively repeats the 
threshold pattern over the entire bit- 
map area. For each point within an 
object to be drawn, we calculate a 
shade value normalized to the range 
0-63 and then compare it to the 
threshold value at that screen point to 
decide whether to plot or unplot. 

If we have, for example, a large 
area where the shade value is con- 
stant at 31 (a 50 percent gray), then 
within each 8 X 8-pixel character 
cell block, half of the threshold values 
will be greater than or equal to the 
shade value, turning on half the pix- 
els. The order in which the values 0 to 
63 are arranged in the threshold table 
determines how these on pixels are 
distributed. A common pattern for 
these so called ordered-dither matri- 
ces iS a recursive arrangement such 
as that shown in Table | (page 53). If 
that matrix is subdivided into quar- 
ters, sixteenths, and so on, each sub- 
matrix has the same general pattern, 
with offsets between submatrices. 

The matrix in Table 1 (classic Bay- 
er ordered dither) keeps the on and 
off pixels spread as far apart as possi- 
ble for any shade. This keeps the spa- 
tial frequencies in the shade “‘tex- 
ture’ as high as possible for a 
particular shade. A disadvantage, 
though, is that texture changes then 
accompany shade changes, making 
shade quantization more apparent. 
Another disadvantage is that many 
color monitors have a hard time cop- 
ing with the very high frequency on- 
off-on sequence of pixels, distorting 
shade values when isolated pixels get 
lost. 

As an aside, a convenient algorithm 
to generate the ordered-dither matrix 
in Table 1 (or such a matrix of any 
size) is found in Figure 7 (page 59). 

The threshold matrix we actually 
use in the program is shown in Table 
2 (page 53). Here we follow a recur- 
sive scheme as we start turning on 
pixels until eight nuclei have been es- 
tablished. As shades increase, new 
pixels are added around the edges of 
these nuclei, simulating the dot- 
growth behavior seen in normal 
printing halftones. Except in the ex- 
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treme highlight and shadow regions, 
the shade texture remains fairly con- 
stant. Also, the clustering of on or off 
pixels is much less demanding on the 
display bandwidth. But take your 
pick—try filling the threshold matrix 
with your own patterns. 

The RSHADE routine shades by 
comparing the shade value to a pseu- 
do-random byte shifted right twice to 
match the 0-63 range. This scheme 
also tends to average out the tone er- 
rors generated as each pixel is turned 
only on or off (though we want an 
intermediate shade of gray) by dith- 
ering the threshold value randomly at 
each pixel. Both shading schemes 
produce sharp edges because each 
pixel is plotted independently. 
Abrupt shade changes are then fol- 
lowed faithfully. 

The SCALE routine provides an 
opportunity to mention a general rule 
you should follow when you try to 
write fast programs: If at all possible, 
avoid division; and if you must divide, 
try to make it by a power of 2 (so that 
you can use right shifts). The SCALE 
routine helps correct some of the geo- 
metric distortion that otherwise re- 
sults from plotting objects on the 
Commodore 64’s rectangular bit 
map. While the monitor display has 
an aspect ratio of approximately 4:3, 
the bit-map aspect ratio is 320:200 or 
8:5. A simple way to keep sphere out- 
lines circular (instead of the usual 
egglike appearance) is to work in 
pseudoscreen coordinates of 320 X 
240, giving the bitmap the same 4:3 
aspect ratio as the screen display. 
The SCALE routine then converts 0- 
239 YPLOT values to a 0-199 range. 

An obvious way to do this is to first 
multiply by 5 and then divide by 6. Or 
you might save a multiplication by 
first dividing a copy of YPLOT by 6 
and subtracting that from the original 
YPLOT. A much faster way is to mul- 
tiply the single-precision YPLOT by 
213 and then take just the upper byte 
of the double-precision product (ef- 
fectively dividing by 256) as the 
scaled YPLOT value. This gives us the 
proper range of absolute screen Y val- 
ues and “rounds” the scaling as well. 

This method of scaling means that 
you effectively replot every sixth Y 
line of pixels, but the routine’s sim- 


Dr. Dobb’s Journal, May 1985 











plicity more than makes up for plot- 
ting 20 percent more points. Scaling is 
left as an option because some printers 
(such as the Commodore 1525) have 
1:1 dot densities. By not scaling, the 
screen display is distorted but a hard- 
copy printout will have the proper ge- 
ometry. On the other hand, you can 
set up printers, such as the Epson RX- 
80, with the appropriate horizontal 
and vertical dot densities to produce a 
4:3 aspect ratio screen dump. Scaling 
here corrects both the screen and the 
hard-copy output. 

The routine PLTSHD is a higher lev- 
el routine that simply checks a couple 
of flags to see what kind of shading we 
want and whether to scale or not. It 
then calls the appropriate shading rou- 
tine. To plot a shade-weighted pixel 
from BASIC, POKE a shade value (0- 
63) into VALUE; POKE the absolute X 
and (optionally scaled) Y values into 
XPLOT, XPLOT+1, and YPLOT; set 
up the flags HTORRN (HALFTONE 
or RANDOM) and NOSCAL; then 
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SYS to PLTSHD. This seems like a lot 
of work to plot a single point, but we 
really won’t be plotting shade-weight- 
ed points by hand—the later shape- 
drawing routines take care of this. 


Line and Facet Drawing 

Listing Three (page 64) completes 
the elementary graphics functions by 
adding line-drawing and shaded-fac- 
et-drawing routines. We draw lines 
using a modified form of Bresen- 
ham’s algorithm, a DDA (Digital Dif- 
ferential Analyzer) technique that 
keeps the actual plotted points within 
one half-screen unit of the true line. 
Regardless of the order in which we 
specify the line’s endpoints, the pro- 
gram sorts them so that lines are al- 
ways drawn from left to right (the X 
position is incremented or unchanged 
at each step). We then need only de- 
termine which is greater, the change 
in X or the change in Y, and whether 
the Y coordinate difference is posi- 
tive or negative. The program checks 
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the scale flag to see if the endpoints 
should be adjusted (in their Y coordi- 
nates) before plotting commences. 
This keeps a common coordinate sys- 
tem for drawing shaded shapes 
(spheres and so on) and lines in the 
same image. A flag MODE deter- 
mines whether the line is drawn by 
setting or clearing pixels (“‘black”’ or 
‘“‘white”’ lines). 

The program’s last elementary 
function is to draw shaded triangular 
facets. A powerful and flexible tech- 
nique for rendering objects is by 
means of a polygon mesh. Natural 
polyhedral objects (for example, 
cubes and pyramids) are obvious can- 
didates for this method, but you can 
also approximate curved surfaces by 
a connected mesh of planar polygonal 
sections. As in piecewise-linear ap- 
proximations of curves, the finer the 
segmentation, the better the approxi- 
mation—although at the price of 
greater computational overhead. The 
coordinates of the polygon vertices 
then constitute a data base that you 
can manipulate easily for rotational 
transformations, perspective trans- 
formations, and so on. Triangular 
sections are the simplest to handle 
and the most general because you can 
break any higher-order polygon down 
into triangular sections. 

As in the line-drawing routine, the 
program sorts the endpoints of the fac- 
ets into a left-to-right order and checks 
the scale flag to maintain a consistent 
coordinate system. At each X position 
across the facet, a top and bottom Y 
coordinate pair is determined by a sim- 
ple proportionality between the X dif- 
ference and Y difference for the partic- 
ular triangular sides. Although this 
involves both multiplication and divi- 
sion operations, it is not the innermost 
loop here (drawing the shaded line seg- 
ment between Y pairs is). It also does 
not give more than one Y value per X 
position, as would a DDA method (for 
lines with slope greater than 1 in 
magnitude). 

The maximum X difference is re- 
stricted to less than 256 (single preci- 
sion), though the absolute X coordi- 
nates for the triangle vertices can be 
anywhere on the screen. This is not 
too severe a constraint because most 
polygon meshes are made up of small 
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sections, and, if a larger triangle is 
essential, you can break it into small- 
er triangles that meet this condition. 
The occasional inconvenience this 
might cause is worth the increase in 
speed and shortened program. 

We leave the shade value used in 
drawing facets as a parameter that 
the calling program specifies. Al- 
though adding “‘surface normal” cal- 
culation and shade value computa- 
tion based on some illumination 
model (and requiring the Z coordi- 
nates then to be specified for the ver- 
tices) is not difficult, the same shade 
value is used for all points of the fac- 
et, making shade determination by a 
BASIC program practical. Also, leav- 
ing shade calculations up to BASIC 
adds the flexibility that we can use 
any shading model. The curved sur- 
face-drawing routines I describe later 
do include shade determination, but 
here each point can potentially have a 
different shade value, putting it in the 
innermost loop. For this reason, the 
curved surfaces must have a fixed 
shading model. 

An interesting use for the BASIC- 
specified shade values is drawing 
‘‘white” facets by setting the shade to 
64. This doesn’t seem particularly 
useful, but when you draw “wire- 
frame” polyhedra, it makes a simple, 
hidden-line removal scheme possible. 
If the facets of an object are sorted so 
that they are drawn from those fur- 
thest to those nearest the observer, 
with “black” lines added around the 
edges of each facet, then foreground 
facets that partially obscure back- 
ground facets erase the lines in their 
interior. We can set a flag EDGES so 
that, after the program has drawn a 
shaded facet, it can add lines auto- 
matically to outline and emphasize 
the edges. The MODE flag again de- 
termines how the lines are drawn (set 
or cleared). 

Now that we have a toolbox of 
arithmetic and primitive-graphics 
routines, we can concentrate on the 
main subprogram for drawing shad- 
ed, curved surfaces rapidly. 


Determining Shade Values for 
Curved Surfaces 

Many recent advances in computer 
image synthesis have dealt specifical- 


ly with how different surfaces reflect, 
refract, scatter, or absorb light. In- 
creasingly complex models for the vi- 
sual appearance of various surface 
textures have led to ever more realis- 
tic images, but increasing computa- 
tional overhead accompanies these 
models. We'll employ the simplest 
shading scheme to start with and 
then suggest how you might modify it 
to add “realism,” while still keeping 
the computations manageable. 

If we restrict ourselves to simple, 
symmetrical objects, we can greatly 
simplify the problem of calculating 
surface brightness. This is not a se- 
vere restriction in itself, as you can 
break most “complex” objects down 
into combinations of simple elemen- 
tal shapes. We will have to limit our- 
selves te “normal” (that is, head-on) 
views of the objects, because once we 
allow objects to be rotated, they lose 
most of their symmetry. Also, calcu- 
lation time (particularly that for hid- 
den surface removal) increases 
enormously. 

We use the Lambertian (diffuse 
reflector) model to determine the 
surface brightness. We assume that 
light comes from a single, specific di- 
rection and then find the cosine of the 
angle between this reference vector 
and a surface normal vector. This 
gives us shade values from 1, where 
the surface faces the light source, to 0 
at the terminator, where light just 
grazes the surface; and negative val- 
ues where the surface is turned away 
from the light. Here is our first op- 
tion: We can clip the brightness val- 
ues at O so that areas facing away 
from the light have zero brightness, 
as an object lit by a single source (in 
deep space) would appear. Or, we can 
use the absolute value of the cosine so 
that the object appears to be lit by 
two identical sources on opposite 
sides. Either way is simple, so we al- 
low for both cases by using a flag to 
determine what kind of illumination 
scheme we want to use for a whole 
scene or any individual shape making 
up the scene. 

Although this simple model is valid 
for diffusely reflecting surfaces, it 
does not account for any contribu- 
tions from specular surface reflec- 
tions, secondary light sources (other 
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than the “opposite face” light) or am- 
bient (nondirectional) light. These 
additional subtleties are not difficult 
to implement, but for the level of de- 
tail and dynamic range (number of 
gray levels) in our halftone display, 
they really aren’t worth the effort. 


Object Geometry 

Calculating the surface normal vec- 
tors for points on an arbitrary surface 
can be difficult, but this is why we 
have restricted ourselves to objects 
that can be made up of combinations 
of the eight simple shapes shown in 
Figure 3 (page 55). All the basic 
shapes have at least fourfold symme- 
try; that is, once we have found the 
surface normal for a point (X, Y) in 
one quadrant of the object, we can 
easily find the surface normals for the 
other three quadrants by comple- 
menting appropriate components. 
Also, by restricting ourselves to 
shapes with relatively simple surfaces, 
we can determine the required surface 
normal vectors without resorting to 
trigonometric functions, using instead 
some simple geometric consider - 
ations. 

Another time-saver is to choose an 
illumination reference vector to best 
take advantage of symmetries in the 
objects. Unfortunately, the ‘“‘best”’ 
choice for computational purposes— 
a light source directly behind the 
viewer—gives a rather flat-looking 
image. Much more pleasing shading 
results from illumination coming 
from “‘over the shoulder.” The slight 
assymmetry that results gives a 
stronger sense of depth to the objects. 

The coordinate system describing 
objects on the screen has its X axis 
increasing horizontally to the right, 
the Y axis increasing vertically up- 
ward, and the Z axis increasing out of 
the screen toward the viewer (a con- 
ventional right-handed coordinate 
system). The illumination reference 
vector used here has X, Y, and Z 
components of (1,1,2), representing 
light coming from over the right 
shoulder. The symmetry in X and Y 
makes for easier shade calculations 
and gives a similar looking scene if 
you rotate a hard-copy output 90 de- 
grees to fit objects that are taller than 
they are wide into the display. Light- 
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ing in the “portrait” (as opposed to 
‘‘landscape’’—unrotated) mode then 
comes from over the left shoulder. 


Drawing a Shaded Sphere 
Spheres are particularly easy objects 
to deal with because a radial vector 
from the center to a point on the sur- 
face is in the same direction as a sur- 
face normal from that point. The 
only real problem we must deal with 
is one of normalization. We will al- 
ways deal with coordinates relative to 
the “local center of curvature” of ob- 
jects. For spheres, this is just their 
geometric center. 

Consider a point on the surface 
that extends out of the screen from 
relative coordinates (X,Y). We find 
the corresponding Z value using the 
equation for a sphere: 


Z = SQR(R*R — X*X — Y*Y) 


This calculated Z then forms the 
third member of the surface normal 
vector. To calculate the cosine of the 
angle between this vector and the il- 
lumination reference vector, we must 
first normalize both to have unit 
length. The normal we have just 
found has, of course, a length of R, so 
we need only divide each component 
by the radius of the sphere. The illu- 
mination vector (1,1,2) has a length 
of SQR(6), so we normalize this vec- 
tor to unit length by dividing each 
component by SQR(6). 

Now that we have two vectors of 
unit length but different directions, 
we find the cosine of the angle be- 
tween them by taking their inner 
product, which is nothing more than 
summing the products of the X, Y, 
and Z coordinate pairs—like so: 


COSINE = (1*X + 1*Y + 2*Z) 
/ (R*SQR(6)) 


To use integer arithmetic through- 
out, we don’t really want brightness 
expressed as a fraction between 0 and 
1, but rather scaled to a range of inte- 
gers from 0 to 63. We choose a maxi- 
mum shade value of 63 to match the 
64 gray levels that can be approxi- 
mated by an 8X8 threshold matrix 
(described earlier in the ‘Graphics 
Utilities” section). We scale the 


pseudo-random bytes (used in the 
RSHADE routine) to the same range 
simply by shifting them right twice. 
So, for a surface point (X, Y, Z) ona 
sphere of radius R, the appropriate 
SHADE integer (0-63) is: 


SHADE = 26*(X + Y + 2*Z)/R 


The factor 26 properly accounts for 
the SQR (6) in the denominator of the 
previous equation. 

As stated earlier, all the primitive 
shapes considered here have at least 
fourfold symmetry. We need com- 
pute the Z component only once for 
each + KX and + Y quartet of points 
(relative to the geometric center of 
the object). The sphere and top-view 
toroid actually have n-fold symme- 
try, which the Cartesian grid of 
screen pixels reduces to eightfold 
symmetry. That is, in addition to 
changing signs of X and Y, we can 
exchange the X and Y coordinates to 
find another surface point with the 
same Z value. 


Shape-Drawing Routines 
Listing Four (page 68) is a set of rou- 
tines for drawing the eight simple 
shapes shown in Figure 5. The routines 
resemble some form of compiled BA- 
SIC in that they use no special bit ma- 
nipulations or unusual addressing 
methods, but just have appropriately 
ordered calls to the lower-level routines 
set up earlier. Comment statements 
precede each shape-drawing routine, 
giving an equivalent BASIC routine. 
This seems to be the easiest way to ex- 
plain each routine because most read- 
ers are familiar with BASIC program 
methods. I thus give special comment 
to only a few of the routines here. 

GETVAL is a shade-normalization 
routine that also checks for normal or 
backlit illumination via the flag BAK- 
LIT. The byte pair at TONE contains 
the inner (dot) product of the illumina- 
tion vector with the local surface nor- 
mal vector. GETVAL then effectively 
does the division by SQR(6)*R and 
multiplication by 63 to put VALUE 
into the proper range, clipping at zero 
or taking the absolute value, as 
necessary. 

PTPLOT does all the dirty work 
needed to plot shaded points for four- 
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fold symmetrical objects. Provision is 
also made here for clipping the object 
at independent levels up, down, left, 
and right of the object’s center. The 
clipping feature is needed to blend 
various primitive objects into more 
complex ones with smooth transitions 
at the seams. Clipping also allows us 
to create some intricate “weaving” 
effects by redrawing portions of over- 
lapping shapes as in Figure 4, 
‘Linked Toroids,” (page 55). 

The flag NOROT determines 
whether the X and Y coordinates will 
be exchanged. This is useful both for 
drawing the eightfold symmetrical ob- 
jects (top-view toroid and sphere) and 
for rotating the fourfold symmetrical 
objects 90 degrees so that a single 
drawing routine can produce two ori- 
entations of an object. The calculations 
are basically those for the sphere, but 
we'll see later that we can put other 
objects, such as toroids, into forms that 
look like spheres (at least locally). 

GETZ calculates the effective Z co- 
ordinate for a spherelike surface, giv- 
en the X and Y coordinates relative 
to the local center of curvature. Note 
that this routine needs the SQRT 
function, and because it is in general 
called for each quartet of points plot- 
ted, our fast SQRT makes a big dif- 
ference in execution speed. 

SPHERE follows the previously 
outlined algorithm and takes full ad- 
vantage of the available symmetry. 
The radius is POKEd into RADIUS, 
and clipping distances relative to the 
sphere center are POKEd into CLIPL 
(left), CLIPR (right), CLIPU (up), 
and CLIPD (down). 

CYLNDR draws a cylinder with 
sizes POKEd into RADIUS and 
HLEN (half-length). The flag 
NOROT determines whether the cyl- 
inder will be drawn with a horizontal 
or a vertical axis. The routine is sim- 
ple, using PTPLOT for the main 
shade-calculation tasks. Actually, we 
could write a much faster routine to 
take advantage of the fact that we 
can use the same shade value for all 
points along lines parallel to the cyl- 
inder axis. This would require consid- 
erably more space, however. 

The peculiar manipulations of rel- 
ative coordinates for plotting toroids 
In various orientations are easier to 
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explain with the help of the diagram 
in Figure 5 (appropriate for a top- 
view toroid) (page 55). 

Consider a point P at coordinates 
(XREL, YREL) relative to the center 
of the object. We can take the local 
center of curvature of the toroid to be 
at the point C, which lies on the inter- 
section of the line passing through 
the center of the toroid and a point 
beneath P (where Z=0) with a circle 
of radius RC (the “average” radius of 
the toroid is RC=(RO+RI) / 2). We 
determine the surface normal by the 
relative X, Y, and Z displacements 
from the point C. 

The byte RO is used for temporary 
storage of the radial distance from 
the toroid center to the point beneath 
P (where Z=0): 


RO = SQR(XREL*XREL 
+ YRELTFYREL) 


We can determine the relative X and 
Y displacements, XSHD and YSHD, 
respectively, of P from C easily by us- 
ing similar triangles: 


XSHD = XREL*(1 — RC/RO) 
YSHD = YREL*(1 — RC/RO) 


We find the Z coordinate via the Py- 
thagorean theorem, using the radius 
of the “ring” portion, RT, as the hy- 
potenuse. RT is then also the length 
of the normal vector and is the value 
POKEd into RADIUS for normaliza- 
tion in the shade calculations. 

The routine TOROID follows this 
algorithm, taking advantage of the 
eightfold symmetry in the object. 
EDGTOR and SPOOL use similar 
center of curvature coordinates to 
draw other orientations of a toroid. I 
have given the BASIC equivalents but 
leave it to readers to draw the appro- 
priate geometric constructions if they 
desire more details. 


Using the Shape-Drawing Rou- 
tines—Interface to BASIC 

The last module, completing our 
graphics package, is a convenient in- 
terface to BASIC. Listing Five (page 
76) is a collection of routines to pass 
parameters easily to the graphics rou- 
tines from the BASIC programs that 
control image generation. These rou- 


tines are specific to the Commodore 
64 in that they use some of the rou- 
tines in the BASIC ROM to interpret 
statements in a BASIC program or en- 
tered in the direct command mode. 

Graphics commands are given in 
the form: 


SYS(FNCTN),PARAM1,PARAM2, 
[OPTIONAL PARAMETERS] 


where FNCTN is the address of the 
graphic function you desire (or a 
variable that has been assigned the 
address value) and PARAMI and 
PARAM2 are parameters (such as the 
center coordinates of an object) that 
the function requires, followed by 
any optional parameters. 

The parameters can be either liter- 
al numerics or expressions that are 
evaluated for the desired values. We 
do not have to put the function ad- 
dress in parentheses, but it helps to 
make the program more readable. 
Separating parameters by commas is 
required. If you desire an optional pa- 
rameter (such as specifying a new ra- 
dius for sphere drawing), you add it 
by following the last required param- 
eter by a comma and then the option- 
al value or expression. 

The use of optional parameters is 
more easily explained with the se- 
quence of BASIC statements found in 
Figure 8 (page 59): 

For all the shape-drawing func- 
tions, you must specify the K and Y 
center coordinates, but shape sizes 
are optional parameters. The last val- 
ues specified become the new default 
sizes, allowing you to draw copies of 
similar objects (such as a bunch of 
grapes) just by setting the new center 
coordinates. All shapes but the 
sphere take two size parameters, and 
you must specify both when you de- 
sire a change (even when only one pa- 
rameter takes on a new value). All 
size parameters (radii and cylinder 
half-lengths) must be less than 256, 
not a severe limitation considering 
the screen is only 200 pixels high 
(240” with scaling). 

The commands to clear the bit map 
and initialize the color map each take 
a single optional parameter, but the 
default values remain unchanged. Un- 
less you specify alternate bytes, the bit 
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map is filled with Os (cleared) and the 
color map is filled with 1s (for black 
dots on a white background). The 
most useful alternate byte with which 
to fill the bit map is 255, setting the 
entire background. Because the shad- 
ing process clears, as well as sets, ap- 
propriate points, objects still appear 
normal but against a black back- 
ground (particularly effective when 
you use the “back light” style). 

The byte used to fill the color map 
is made up of background and fore- 
ground nibbles. To initialize the color 
map for a different color combination 
than black on white, use: 


SYS(52001),16*DC+ BC 


where DC is the dot-color number 
and BC is the background-color num- 
ber (as given in any reference to pro- 
gramming the Commodore 64). 

The addresses for all the graphic 
functions and the parameters they 
take, along with locations to be 
POKEd with clipping values and flags 
for various drawing styles, are sum- 
marized in Table 3 (page 60). The 
best way to see how these shape- 
drawing routines are used is to exam- 
ine the demonstration programs in 
Listing Six (page 78), “SHAPES 
DEMO,” and Listing Seven (page 
80), “STELLATION.” All the differ- 
ent style options are exercized there. 
It is useful to save an abbreviated ver- 
sion of SHAPES DEMO, consisting of 
just the lines up to 340 and the sub- 
routines following line 1620. This 
skeleton program can then form a 
base, providing all the POKE and SYS 
locations you need and to which you 
can add your own image-generation 
control program. 


Auxiliary Programs 

SHAPES DEMO and STELLATION 
make use of two auxiliary programs 
that, while not strictly needed to pro- 
duce graphic images, provide utilities 
to both enhance the image itself and 
speed the drawing process. Listing 
Eight (page 80) is a routine for sort- 
ing an integer array indirectly 
through a key array (to determine 
drawing order for facets in a polygon 
mesh quickly). Listing Nine (page 
82) allows you to add text to graphic 
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10 REM ORDERED DITHER ARRAY —RECURSIVE FILL 
20. 1=0.J-0:K=1:N-0P=3 
30 REM ‘P’ IS ORDER OF ARRAY, SIZE |S (2 * P) x 2° P) 
40 P=2°P:DIMA(P - 1,P - 1) 
50 GOSUB 100 
60 END 
100 IF K=P THEN A(l,J)=N:N=N+ 1:K=K/2:RETURN 
110 K=2*K:GOSUB 100 





120 I=1+K:J=J-+K:K=2°K:GOSUB 100 
130 I=1-K:K=2XK:GOSUB 100 
140 1=1+K:J=J- K:K=2°K:GOSUB 100 
150 I=l-K:K=K/2:RETURN 

: Figure 7 


(SET UP GRAPHICS, STYLES, ETC) 

SP =52119:REM ADDRESS OF SPHERE FUNCTION 

SYS(SP),80,75,30:REM DRAW A SPHERE OF RADIUS 30 AT X= 80,Y=75 
SYS(SP),300,50 :REM DRAW ANOTHER SPHERE AT X=300, y=50 

REM SINCE NO RADIUS IS, SPECIFIED, LAST VALUE IS USED AS DEFAULT 
SYS(SP),200,150,40:REM NEW SPHERE RADIUS (40) BECOMES DEFAULT | 


Figure 8 






FREE 
CR RISKF 
TRY FA Aste AYS Swit 
NEY 
\\ ‘ouawoN ANTEE 


helps Develop 
and Test Lattice C Programs 


Reliably Cuts Both — 
# Compile times (by 15% to 55%) 
= Testing time (by 12% to 37%) 


FASTER C keeps the Lattice C library and any other functions you 
choose in memory. It manages a jump table to replace the LINKER 
and immediately execute your functions. You can also CALL 
active functions interactively to speed your program debugging. 
It includes many opiions for configuration and control. 


AVAILABLE FOR PC-DOS, IBM-AT, 


ONLY $95. AND ANY 256K MSDOS SYSTEM. 
CALL TOLL FREE 
800-821-2492 Solution 
for “Technical Description” or to order. Syst ems ‘ 


335-D Washington St., Norwell, Mass. 02061 


FASTER C isa trademark of Solution Systems 617-659-1571 


Circle no. 102 on reader service card. 
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images in a variety of styles. 

The code for these routines is short 
enough to be tucked in behind Com- 
modore’s DOS Wedge program so 
that, again, you don’t lose any BASIC 
program space but maintain full 
compatibility with the wedge. If you 
are willing to give up the convenience 
of the wedge, however, you can easily 
relocate these routines to the end of 
the “interface” subprogram to keep 


BIT-MAP SCREEN 


t 
} 


COLOR MAP 


CLIPPING BOUNDS 


the graphics package in one piece. 

The KEYSORT routine works with 
two |-dimensional integer arrays of 
the same size. One is filled with some 
“priority” parameter (such as the 
“average Z”’ coordinates for the fac- 
ets in a polygon mesh), and the other 
becomes a “key” array whose ele- 
ments index those in the “priority” 
array in increasing order. 

To use the routine, POKE the max- 


: 40960-48959 (SA000-$BF3F) 
: 33792-34791 ($8400-$87E7) 


(relative to object center): 


imum element index of the arrays 
into location 140, the address of the 
first (Oth) element of the key array 
into locations 251 (low byte) and 252 
(high byte), and the base address of 
the priority array into 253 and 254. 
You can find these array base ad- 
dresses easily because the Commo- 
dore 64 places the address of the 
“current BASIC variable” into loca- 
tions 71 and 72. Setting the Oth ele- 


893 ($037D) : LEFT BOUND 
894 ($037E) : RIGHT BOUND 
895 ($037F) : UPPER BOUND 
896 ($0380) : LOWER BOUND 
53280 ($D020) : BORDER COLOR [0-15], POKE with 1 to match white screen 


STYLE FLAGS: 


838 
839 
868 
871 
898 


($0346) 
($0347) 
($0364) 
($0367) 


($0382) — 


: SHADE STYLE [O=random, 1 =halftone] 

; SCALE FLAG [O=normal (1:1), 1=scaled (3:4)] 

: EDGES FLAG [O=normal, 1 =add lines to facet edges] 
: EDGE/LINE MODE [O=draw, 1 =erase] 

: LIGHTING STYLE [O=normal single source, 1 =backlit] 


FUNCTION LOCATIONS—CALL WITH “SYS(FNCTN), PARAMETERS.” OPTIONAL PARAMETERS IN SQUARE BRACK- 


($COE2) 


ETS, DEFAULT VALUES ARE USED IF NOT SPECIFIED 


: SWITCH TO GRAPHICS MODE 


49378 TO! 

49411 ($C103) : RETURN TO TEXT SCREEN 

51979 ($CBOB) : CLEAR[,CLEAR BYTE] FILL BIT MAP WitH CLEAR BYTE DEFAULT = -O) | 

52001. ($CB21) : COLOR[,COLOR BYTE] FILLCOLOR MAP WITHCOLORBYTE —_— 

52023 ($CB37) : PLOT,X,Y SET POINT AT (X,Y) 

52026 ($CB3A) : UNPLOT,X,Y CLEAR POINT AT (X,Y) _ 

52049 ($CB51) : LINE,X1,Y1,X2,¥Y2 DRAW A LINE BETWEEN (X1,Y1) AND (X2,Y2) 

52052 ($CB54) - FACET,X1,Y1,X2,Y2,X3,Y3,VA DRAW A SHADED TRIANGULAR FACET BETWEEN COORDINATE 


CURVED SURFACES: 


PAIRS (X1,Y 1), (X2,Y2) AND (X3,Y3) USING “VA” SHADE VALUE (0:BLACK TO 64:WHITE) 


52119 ($CB97) : SPHERE,X,Y[,R] DRAW A SPHERE CENTERED AT (X,Y) WITH RADIUS R 

52141 ($CBAD) : TOROID,X,Y[,RI,RO] DRAW A TOP-VIEW TOROID WITH INNER RADIUS RI AND OUTER RADIUS RO 
52150 ($CBB6) : VCYL,X,Y[LR,HL] DRAW A CYLINDER WITH AXIS VERTICAL, RADIUS R AND HALF-LENGTH HL 
52153 ($CBBQ) : HCYL,X,Y[,R,HL] DRAW A CYLINDER WITH AXIS HORIZONTAL 

52186 ($CBDA) : VTOR,X,Y[,RI,RO] DRAW AN EDGE-VIEW TOROID WITH AXIS VERTICAL 

52189 ($CBDD) : HTOR,X,Y[,RI,RO] DRAW AN EDGE-VEIW TOROID WITH AXIS HORIZONTAL 

52203 ($CBEB) : VSPOOL,X,Y[,RI,RO] DRAW AN INSIDE-VIEW TOROID (“SPOOL”) WITH AXIS VERTICAL 
52206 ($CBEE) : HSPOOL,X,Y[,RI,RO] DRAW AN INSIDE-VIEW TOROID ("SPOOL") WITH AXIS HORIZONTAL 

Table 3 
Graphics Addresses 
60 
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ment of an array equal to itself mere- 
ly establishes it as the current 
variable. Then you can transfer the 
contents of 71 and 72 to the proper 
pointer at 251/252 or 253/254. Be 
careful to use literal numerics for 
‘“*251” and so on, because you don’t 
want to change the current variable. 
After setting up the pointers, SYS to 
the start of the KEYSORT routine. 
Another caution to observe if you use 
KEYSORT for other applications is 
not to create any new variables be- 
tween finding the array base address- 
es and invoking KEYSORT, because 
arrays will be pushed up in memory 
to keep them at the end of BASIC’s 
variable storage. 

KEYSORT is set up to handle arrays 
with up to 256 elements each. If need- 
ed, you can sort larger arrays by break- 
ing them into smaller arrays, sorting 
with KEYSORT, and then collating the 
results. Merging a few already sorted 
arrays is a fairly simple operation that 
you can do in a single pass, extending 
the usefulness of this routine. 

STELLATION uses KEYSORT 
(lines 840-880) to determine the 
drawing order for the facets of a 
small stellated dodecahedron (Figure 
6, page 55). This is a polyhedron that 
is not strictly convex (some internal 
dihedral angles are greater than 180 
degrees), causing some foreground 
facets to partially obscure those in 
the background. The Painter’s algo- 
rithm is used to handle hidden sur- 
face removal. Each newly drawn fac- 


et completely overwrites the 
background (clearing, as well as set- 
ting, points) so that drawing facets 
from back to front gives a proper ren- 
dering of the object. 

The stellated dodecahedron of Fig- 
ure 6 usually has only 30 visible or 
partially visible facets. Sorting with 
BASIC would be satisfactory here, but 
more complex polygon mesh objects 
can easily contain hundreds of visible 
and partially visible facets. You can 
really appreciate KEYSORT in those 
cases. Although it uses the simple and 
inefficient bubble-sort algorithm, be- 
ing implemented in machine code lets 
KEYSORT run circles around any BA- 
SIC sorting alternative. 

The final routine, in Listing Nine, 
WRITE, allows you to add text to the 
graphic display. The primary reason 
for implementing this as a machine 
code routine is that the bit map for 
the graphic image is located in the 
shadow RAM beneath the BASIC 
ROM (again saving useful BASIC 
program memory space). We can 
transfer bit images from the charac- 
ter ROM to the bit map just by PO- 
KEing values to the bit map, but we 
gain more flexibility if we first read 
the bit-map bytes to exclusive OR 
them, AND them, and so on with 
character image. Reading the shad- 
ow RAM requires that the BASIC 
ROM be switched out (through the 
bank switching used in the Commo- 
dore 64), something a BASIC pro- 
gram cannot do (and hope to contin- 
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Listing One 


2200 
@208 
annua 
QQ22 
0000 
Q200 
Q420 
Bouu 
220 
G08 
e200 
B82 


@0001 
BOAGB2 
OAB83 
Q0204 
Q0005 
Q@2006 
20007 
28088 
aan“? 
©0010 
@@011 
8012 ; 

MLFCND =AC 
MLFI.ER =%AD 
FROD =$AE 


OVO15 
Q2014 
20015 


QB 
2220 
@002 


: INTEGER ARITHMETIC ROUTINES 
: RICHARD L. RYLANDER 8/12/04 20834 


’ 
: REVISED 10/29/84 TO ADD FULL DOUBLE 
3; FRECISION ARGUMENTS IN DIVIDE ROUTINE 


s 
5 FEE ETE EE TE EE FEE IE EE ee ADEM ERE RR EE Hen 


’ 
; USE FAGE ZERO LOCATIONS WHERE POSSIBLE FOR 
3; ITERATIVE FROCEDURE WORK SFACE 


3 MULTIFPLICAND 
: MULTIPLIER 
3 PRODUCT 


C@@4 AS AC 
1@ @7 


A? 22 
ES ne 
Ce@eD 85 AC 


Que16 gage ; 00047 CQO@F 8S AD 
20017 9000 DVDND =3FD ; DIVIDEND/QUOTIENT gaa48 C11 A? ov 
ovea1s 2008 DVSOR =4FB 3; DIVISOKR @0049 C@1i3 A2 08 
OVZ19 M20 RMNDR =#64 3; REMAINDER @0@5e@ c@iS 46 AD 
gaeze eave ; @8051 C@17 92 23 
QHA21 ovue RADCND =#AC : RADICAND @0@52 cea@19 18 
gew22 g008 ROOT  =#@73C ; SQUARE ROOT @@@53 CIA 45 AC 
QU823 Uae ; @2as4 CIC 6A 
goaz4 aca | TEMP 0 =3F B @@@5S CBiD 44 AE 
Bes Baa : @@056 CIF CA 
82026 av00 ; SET UF SEED VALUES FOR PSCUDO- RANDOM NUMBERS 90057 C@22 DO F3 
90827 © evaa *= $0000 geese ce22 8S AF 
G@32B CBOB FF RNDM -BYTE SEF 255 @60a59 C@24 48 
gauze cea ss gaase ce2s 

@@e29 Cae2 2 RTCMP .BYTE #00, #00 @aa61 ce2s 

20027 Coor 2a 

@eez@ ceas 


C@O4 
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i 
SQUARE LDA MLFUCND 


MLOOF 


NOADD 


ue execution). 

The subroutine following line 1780 
in SHAPES DEMO illustrates how to 
print text in a variety of styles on the 
bit-map image. Although the pro- 
gram actually uses only one style, the 
subroutine allows for five possibili- 
ties. Normal (‘‘black” on ‘“‘white’’) 
characters and reverse characters can 
overwrite the background, black 
characters can be ORed with the 
background, white characters AND- 
ed with the background, or black 
characters exclusive ORed with the 
background. The last possibility gives 
characters that ‘“‘change phase” 
across black/white edges in the 
image. 


Conclusion 

The graphics package described here 
we hope presents some new ap- 
proaches to computer-generated im- 
ages on small systems. At the same 
time, I’m sure I’ve missed some obvi- 
ous tricks that would speed up the 
programs or reduce their size. I will 
be interested to see responses to this 
article and shortcuts or enhance- 
ments that might be added. Although 
the price/performance ratio of small 
graphics system continues to improve 
(especially with the development of 
custom LSI graphics chips), there are 
yet many unexplored software ap- 
proaches to the problem. DD} 


Reader Ballot 
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5 

; MULTIFLY SINGLE PRECISION MUL. TIFIICAND 

3; BY SINGLE FRECISION MULTIPLIER GIVING 

; DOUBLE PRECISION FRODUCT (ENTER AT ."MULT") 


3; SFECIAL CASE: ENTER AT “SOUGRE" TO FIND 
3; SQUARE OF SIGNED 8-BIT NUMBER 


; ENTRY TO SQUARE 

3; USE ABSOLUTE VALUE 
SEC 3; NEGATE 1F NEEDED 
LDA #400 

SBC MLFCND 


BFL POSITV 


STA MLF OID 


POSITV STA MLFLER 
MULT 


LDA #400 3 ENTRY TO MULTIFLY 
LDX #408 
LSR MULFLER 
BCC NOADD 
re 

ADC MLFCND 
ROR A 

ROR FROD 
DEX 

BNE MLOOP 
STA FROD+1 
RTS 


3 
5 IE IH HHI EEE HEH EEE HE TEE EE EH 


(Continued on next page) 
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Dr, a wing on th e C: -64 (Listing Continued, text begins on page 50) 
Listing One 


®8862 
BQ863 
Q@O264 
QQ865 
@@Q64é 
Q@Q047 
82048 
BO849 
00078 
@QQ71 
@2872 
80873 
00074 
82875 
2@076 
02877 
808278 
80079 
B2288 
00081 
2882 
82083 
20084 
00085 
80086 
88087 
80088 
82089 
20898 
0091 
88892 
88293 
82894 
002095 
Q@BB96 
02297 
28098 
00299 
0018 
08181 
20182 
Q0183 
22124 
@8185 
@21a5 
08187 
8108 
80129 
02110 
Q0111 
@2112 
@2113 
@2114 
Q0115 
@@116 
@0117 
02118 
@0119 
2122 
O@121 
88122 
82123 
@2124 
00125 
@@126 
@8127 
82128 
02129 
@213 
Q@131 

Q2132 
00133 
00134 
@8135 
B@i36 
00137 
00138 
Q@0139 
@8140 
Q0141 

02142 
00143 
00144 
@0145 
20146 
00147 
00148 
Q@0149 
0152 
Q@151 

Q@@i52 
Q@0153 
Q@G154 

@@155 
Q@156 
Q@8157 
20158 
Q0159 
@2148 
Q@@161 

Q@162 
Q01463 
00164 
88165 
0146 
QQ147 
02168 
Q@2149 
22178 
Q0171 
Q@2172 
08173 
00174 


C825 
C@25 
C@25 
C825 
C@25 
C825 
C@25 
C825 
C825 
C@25 
C825 
C827 
C829 
CO2B 
C@2D 
CO2F 
C@31 
CQ33 
C@3S 
CO346 
Ce38 
CQ3A 
CQ3B 
C@3D 
CO3F 
CQ41 
CQ43 
C@45 
C@46 
ca48 
C@4A 
ce4c 
CO4E 
C@S5a 
C@S2 
C853 
C@55 
C@57 
Cas9 
COSB 
C@SD 
COSF 
C41 
CQ@43 
C64 
CQ44 
CMA4 
CQ4S4 
C@44 
CQ44 
CQ44 
CQ@44 
CQ@466 
C468 
CQ@4B 
C@4E 
C270 
C@72 
CO75 
C878 
CQ7B 
C@7D 
CO8S 
C@S82 
C884 
C@86 
cess 
CQ8A 
Ccasc 
CQ@BE 
Ca9a 
ceri 

C93 
CQ96 
C297 
Ca99 
Cag9c 
CO9E 
CAB 
C@A2 
C@AS 
CQA7 
CQ@AA 
C@AB 
C@AD 
COBO 
CQB1 

CQB4 
COB6 
CQB9 
COBB 
C@BE 
CQBF 
C@c1 

ceac4 
C8@C7 
cacs 
cece 
cece 
cece 
cece 
coacs 
cece 
C8@CcB 
C@CE 
Capi 
C@Dd4 
C@DS 
CQDB 
C@DB 
CODE 
CQ@E1 
CBE2 


A9 
85 
as 


A2 


246 


26 
38 
AS 
ES 
Ags 
AS 
ES 


84 
85 
CA 
Da 
26 
26 
B4 
26 
Ba 
38 


ES 
AS 
ES 
5a 
E& 
D@ 
E4 


ERRORS = 28220 
ERRORS = @8800 


SYMBOL TABLE 


SYMBOL VALUE 


DECCNT C@45 
DVSOR Q@FB 
MLPLER @@avd 
NEXTS CQ@BE 
PROD Q@BAE 
RMNDR Q@QB4 
RTEMP CQ82 
TEMP Q@QFB 


END OF ASSEMBLY 
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28 
B4 
BS 
12 


FE 
B4 
BS 


B4 
FB 


BS 


a4 
B4 
BS 


ES 
FD 
FE 
B4 
BS 
QB 


FB 


FC 
BS 
Bé 
FD 
Q@2 
FE 


a8 
Qa 
3c 


FB 
FC 
SC 
3D 
3c 
@3 
3D 
Ac 
An 
FB 
FE 
AC 
AD 
FB 
FC 


FB 
3C 


FC 
3D 
12 
FC 
FB 
oe 
@3 
3D 


‘cS 


3C 
@1 
2C 
@3 
3D 


Bi 
3 


ean 
whl 


@1 
3 


Qs 
22 
@2 
@1 


Q3 


Q3 


ca 
Q@3 


@3 


DIVIDE 
FINI 
MULT 
NOADD 
RADCND 
RNDM 
SORT 


DIVIDE DOUBLE PRECISION DIVIDEND 
BY DOUBLE PRECISION DIVISOR GIVING 
DOUBLE PRECISION QUOTIENT 


DIVIDEND IS REPLACED BY QUOTIENT 


Listing Two 


GRAPHICS UTILITIES 


QUOTIENT 


© ee we we we we we we we we we 


IVIDE LDA 
STA 
STA 
LDX 
ROL 
ROL 
ROL 
ROL 
SEC 
LDA 
SBC 
TAY 
LDA 
SBC 
BCC 
STY 
STA 
DEX 
BNE 
ROL 
ROL 
ASL 
ROL 
BCS 
SEC 
LDA 
SBC 
LDA 
SBC 
BCS 
INC 
BNE 
INC 
NOCHNG RTS 


DLOOP 


DECCNT 


ROUND 


(1D #2 ee we oe oe oe 


ss} 
pal 
4 


LDX 
LDA 
STA 
STA 
STA 
STA 
ASL 
ROL 
INC 
BNE 
INC 
ASL 
ROL 
ROL 
ROL 
ASL 
ROL 
ROL 
ROL 
SEC 
LDA 
SBC 
TAY 
LDA 
SHC 
BCC 
STA 
STY 
INC 
ENE 
INC 
DEX 
BNE 
IMP 
SEE 
LDA 
SBC 
STA 
BCS 
DEC 
DEX 
ENE 
ROR 
ROR 
RTS 


SQRT1 


NEXT1 


NEXT2 


RESTOR 


NEXTS 


FINI 


TAKE INTEGER 


IN THE FROCESS 


IS ROUNDED TO NEAREST INTEGER 


#$20 
RMNDR 
RMNDR+1 
##12 
DVDND 
DVDND+1 
RMNDR 
RMNDR+ 1 


RMNDR 
DVSOR 


RMNDR+1 
DVSOR+1 
DECCNT 
RMNDR 
RMNDR+1 


DLOOF 
DYDND 
DVDND+1 
RMNDR 
RMNDR+1 
ROUND 


DVSOR 
KMNDR 
DVSOR+1 
RMNDIR+ 1 
NOCHNG - 
DVDND 
NOCHNG 
DVDHD+1 


#408 
#200 
ROUT 
ROOT +1 
TEMF 
TEMF +1 
ROOT 
ROOT+1 
ROOT 
NEXT1 
ROOT+1 
RADCND 
RADCND +1 
TEMFE 
TEMF +1 
RADCND 
RADCND+1 
TEMF 
TEMF +1 


TEMP 
ROOT 


TEMF +1 
ROOT+1 
RESTOR 
TEMP +1 
TEMF 

ROOT 

NEXT2 
ROOT +1 


SCRT1 
FINI 


ROOT 
#FO1 
ROGT 
NEXTS 
ROOT+1 


SORT 1 
ROOT +1 
ROOT 


we we 


“ 


CHECK IF REMAINDER 
IS >= 1/2 OF DIVIDEND 
FOR ROUNDING 


HEE FETE IE TE HEHE IE TE HEHE IEE HEHE EO FE FE IEE EEE HE Ee EE EE 


SQUARE ROOT OF A 
DOUBLE FRECISION RADICAND GIVING 
SINGLE PRECISION ROOT 


<= REAL ROOT > 


ASSUME CURRENT LSB OF 
ROOT WILL BE 1 


SHIFT RADICAND LEFT 
TWICE INTO TEMP 


SUBTRACT ROOT ESTIMATE 
FROM TEMP 


SUBTRACTION Gk 


IGNORE SUBTRACTION 
AND RESET LSB GF ROOT 


FINAL. /2 TO NORMALIZE 


Fe HE HE TE IE HEE ETE FE TE HE HE SE IE TE FI TE HEE HEE EE 


GENERATE PSEUDO-RANDOM BYTES 


a 
; 
; 
3 EXIT WITH P-K 
; 
R 


BYTE IN ACCUM. 


ANDOM LDA RNDM 
STA RTEMP 
EOR RNDM+1 
ROL RTEMP+1 3; RTEMP+1 PRESERVES 
ROR A 3 CARRY BIT FOR CYCLING 
ROR RTEMP+1 3 RANDOM NUMBERS 
STA RNDM 
LDA RTEMP 
STA RNDM+1 
RTS 
-END 
C@25 DLOOP C@2D DYVDND @QFD 
Ceci MLOOP c@is MLFCND Q@@ac 
C@l1 NEXT1 Case NEXT2 C@AA 
ceic NOCHNG C@&63 FOSITV COOF 
@2@AC RANDOM cece RESTOR COBS 
C220 ROOT @33C ROUND C@SD 
C@44 SCRT1 C@72 SQUARE CQ24 


End Listing One 


22081 aaa 

22202 8802 

@08003 2000 

Q202024 aA00 

Q@2025 8080 

@22Q6 ONaa 

Q@2007 9002 

20008 2002 

@2829 2220 

Q@00i8 sana 

@Q28iit A222 

QQ22i2 e200 

Q@@Wis BVaa 

@2014 8220 

88615 8820 

Q@2016 Avaa0 

@2017 0200 

20018 Aaa 

20819 2000 

@2820 e000 

Q@Q821 33 

@B822 O33F 

@2023 8341 

@2@24 8342 

@0025 8343 

@@W264 344 

Q@Q827 83464 

@Q028 0247 

@2829 0348 

@2Q3Q 834A 

Q@@O31 O34A 

@@832 CBE2 

@B@33S CBE2 

@Q@024 CBE2 

Q@0@35 CBE2 

Q@@B3I6 CBE2 

@@037 CBE2 

@Q@838 CWE2 

08039 COE2 AD 11 DB 
22042 C®ES 29 20 
@0041 C@E7 6D 11 DO 
@4@42 C@EA AD @@ DD 
@@043 CB@ED 8D 42 83 
@@244 COF@ 29 FC 
Q@2045 C@F2 29 a1 
@2@46 C@F4 sD 2 DD 
@@2047 C@F7 AD 18 DA 
@@0@48 C@FA 8D 43 @3 
@2249 COBFD A 19 
@@@50 COFF 8D 18 D2 
@@@51 Ci®2 48 

@@0@52 Cia@s 

Q@@853 Cias 

@2854 C183 

@@@55 Cias 

Q@8056 C183 

@2057 Ci@3S AD 11 De 
C2856 C186 29 DF 
@@059 C1@8 sD 11 De 
@@268 Ci@B AD 42 83 
@@061 Ci@E 8D 88 DD 
@@@62 Citi AD 43 3 
@4@63 Cii4 8D 18 DO 
@0064 Ci17 60 
@@065 C118 

@0@44 C118 

@@867 C118 

@0@68 C118 

88269 Cii18 

@@07@ Cii8 AP @1 
@0071 Ci1lA A2 BB 
@0¥072 C1liC 9D O8@ 84 
@@0873 CitF 9D @@ 85 
@0874 Ci22 9D B@ 84 
@0875 Ci25 9D @@ 87 
@2076 C128 CA 
@@077 C129 DO Fi 
Q@0@878 Ci2B 68 
@@279 Ci2Cc 

@0@8so Ci2C 

@@eei Cizc 

@@082 C12C 

@0@s83 Ci2C 

@2084 Ci2C A? AG 
@@@8S CizE ss FC 
@@886 Ci30@ AB 2 
@@087 Ci32 84 FB 
@@e8ss Ci34 AP a 
@0@89 Ci36 A2 2 
@2092 Cisse 91 FB 
@@@91 CiZ3A CB 

@20@92 Ci3B DO FB 
@@@93 C13D E6 FC 
20094 CisSF CA 
@@095 C148 De Fé 
@WB@9& Ci42 68 
@B097 C143 

@Be9s C143 

@80@99 C143 

@010B Ci43 

@@1@1 C143 

@@182 Ci4s 

@@1@S Ci4s 

@2104 Ci43 ag? ae 
@210@5 cCi4S 2c 

@@186 Ci46 A? 8a 
@@197 Ci48 8D 3E @3 
@01@8 Ci4B S @1 
@@189 Ci4D 29 FE 
@@11@ Ci4F 85 @1 
OG111 “E1St. 43 

@@112 CiS2 A9 C7 
@@113 CtS4 ED 41 a 
@@114 CiS7 AA 

@@115 Cise 4A 

@@i16 CisS9 4A 

@@117 CiSA 4A 

@2@118 CiSB AB 

@@i19 CiSC 6&9 AB CI 
@812@ CiSF &85 FB 
@@i21 Ciéi 8&9 C4 C1 
@@i22 Cié4 85 FC 


RICHARD L. RYLANDER 11/4/84 


eek ee ee ee we 


LOAD ARITHMETIC UTILITIES FIRST 


s 
RAM=2033E 
ORTGIN=#CQE2 


’ 
MLPCND=#AC 


3; MULTIFLICAND (S) 
MLFLER=#AD 7 MULTIPLIER: (CS) 
PROD=AE 3; FRODUCT (D) 
MUL. T=$C@11 3 CALL FOR MULTIFLY 


s 

RNDM=#C000 RANDOM NUMBER 
RANDOM=#C8@C8 3; CALL FOR RANDOM 

NOTE —- A CALL TO ‘RANDOM’ LEAVES A RANDOM BYTE 
IN THE ACCUMULATOR 


“ 


*#=RAM 
PLTFLG *=*+1 3; FLOT/UNFLOT FLAG 
XPLT #=H*+2 ; ABSOLUTE FLOT COORD 
YPLT k= e+ 1 3; ABSOLUTE FLOT COORD 
VIC1 H=H+1 ; REGISTER STORAGE 
VIC2 e=et+] 3; FEGISTER STORAGE 
VALUE #s#=*+2 3; FINAL NORMALIZED SHADE VALUE 
HTORKN #=*+1 3; SHADE FLAG, 1=HALFTONE 
NOSCAL #=*+1 ; SCALE FLAG, 1=NO SCALE 
TEMP ¥=#+2 3; TEMPORARY STORAGE 
s 

*=ORIGIN 


SERRE KKK KHER A RK RH RRR RRR HRR RAM HEHRHHR HHH 


TURN ON BIT MAP GRAFHICS MODE, 
SAVING REGISTER VALUES FOR 
RETURN TO TEXT MODE LATER. 


oO. ae ee we we owe we 


RFON LDA 
ORA 
STA 
LDA 
STA 
AND 
ORA 
STA 
LDA 
STA 
LDA 
STA 
RTS 


#D@ii 
#320 
$D@11 
#DD2Q 
VICi 
##FC 
#FO1 
#DDOO 
#D0@18 
VIC2 
#319 
#0018 


HE FE Te HEH HE TE Te HE HEE TEE ETE EE EE TE EE EEE HO 


; 

; 

’ 

3 RETURN TOG TEXT SCREEN 

; 

GRFOFF LDA 
AND 
STA 
LDA 
STA 
LDA 
STA 
RTS 


#D@il 
#$DF 
$DO11 
Vici 
#DD2e 
VIC2 
4D@18 


FOE He HIE TE HE eH HE TE HEE JE SE 0 2 EE EH EE EE a 2 a ee 


we es ae 


3 FILL COLOR MAP FOR BLACK DOTS ON WHITE 


, 

COLOR LDA 
LDXx 
STA 
STA 
STA 
STA 
DEX 
BNE 
RTS 


#21 ; 
#2 

$8400, xX 
£8520, X 
£9400, X 
$8720, xX 


POKE NEW COLORS HERE 


CoLi 


COL1 


EE Te HE TE HE TETE TE  HE EDE EE EEEE HE EEOEE  t 


CLEAR HI-RES GRAPHICS SCREEN 


] et 28 ee we we 


-LEAR 


~ 


LDA 
STA 
LDY 
STY 
LDA 
LDX 
STA 
INY 
BNE 
INC 
DEX 
BNE 
RTS 


#tAQ 

$FC 

#2 

4FB 

#0 5 
#20 

($FB) ,Y 


CLEAR BYTE 
CLRLP 


CLRLP 
#FC 


CLRLP 


HEHEHE TEE TE HE We Te He SEE TEE HE HEHEHE TE TE HE EEE JE EE HEE EEE EE HE 


SCREEN. ABSOLUTE X AND Y SCREEN COORDINATES 


; 

; 

; 

3 PLOT AND UNPLOT POINTS ON HI-RES GRAPHICS 
; ARE POKED INTO XPLT, 


XPLT+1, AND YFLT 
; 
PLOT LDA #9 

-BYTE $2C 

LDA #80 

STA PLTFLG 

LDA #21 ; 
AND ##FE 

STA 301 


SEC 
LDA 
SBC 
TAX 
LSR A 
LSR A 
LSR A 
TAY 
LDA 
STA 
LDA 
STA 


UNPLOT 


BASIC ROM OUT 


INVERT Y COORDINATE TO 
FUT ORIGIN IN LOWER LEFT 
CORNER OF SCREEN 

£199. -YPLT) 


##C7 
YLT 


os ae oe we 


TABLE1,Y 
$FB 
TABLE2,Y 
$FC 


(Continued on page 64) 
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ALL SALES ARE MADE SUBJECT TO THE TERMS OF OUR 90 DAY LIMITED WARRANTY. A COPY OF THIS WARRANTY IS AVAILABLE FREE, ON REQUEST. 


DIGITAL RESEARCH COMPUTERS 







V4 Bryer al lie 


64K $100 ST 
DISK DRIVE SPECIAL! $1399 so 
51," Double Sided-Double Density 


LOW POWER! “o 
Brand New, Unused. Mfg. in Japan by 
Canon. 2/3 Height - Direct Drive! 



















ATIC RAM 











150 NS ADD $10 
BLANK PC BOARD 






WITH DOCUMENTATION | . : SaiEe CUT! 
- $49.95 : g 
Industry Standard Pin Out. 6MS SUPPORT ICs + CAPS FEATURES: (TMM 2016 or HM 6116) RAMs. 
Access. 40 Tracks. $17.50 * ienunine 1EEE 696 24 BIT Extended 























* 64K draws only approximately 500 MA. 
FULL SOCKET SET * 200 NS RAMs are standard. (TOSHIBA makes 
$14.50 TMM 2016s as fast as 100 NS. FOR YOUR HIGH 

SPEED APPLICATIONS.) 
FULLY SUPPORTS THE , supports PHANTOM (BOTH LOWER 32K 
NEW IEEE 696 S100 AND ENTIRE BOARD). 

STANDARD * 2716 EPROMs oe be installed in any of top 48K. 
* Any of the top 8K (E000 H AND ABOVE) may 
(AS PROPOSED) be disabled to provide windows to eliminate 


any possible conflicts with your system monitor, 
FOR 56K KIT $1 25 disk controller, etc. 


ASSEMBLED AND * Perfect for small systems since BOTH RAM and 
TESTED ADD $50 EPROM may co-exist on the same board. 
BOARD may be partially populated as 56K. 


$4995 (2 For $85 


Sold on a First Come Basis 
Add $2 Each U.P.S. 



















256K S-100 SOLID STATE DISK SIMULATOR! 

WE CALL THIS BOARD THE “LIGHT-SPEED-100” BECAUSE IT OFFERS 

AN ASTOUNDING INCREASE IN YOUR COMPUTER'S PERFORMANCE 

WHEN COMPARED TO A MECHANICAL FLOPPY DISK DRIVE. 
FEATURES: 


PRICE CUT! * eee board, using + 5V 64K 




















* Uses new Intel 8203-1 LSI Memory 
Controller. N FW! 
* Requires only 4 Dip Switch Selectable 
1/0 Ports. LOW POWER! 





* Runs on 8080 or Z80 S100 machines. 

* Up to 8 LS-100 boards can be run 
together for 2 Meg. of On Line Solid 
State Disk Storage. 

* Provisions for Battery back-up. 

* Software to mate the LS-100 to your 
CP/M* 2.2 DOS is supplied. 

* The LS-100 provides an increase in 
speed of up to 7 to 10 times on Disk 
Intensive Software. 

















RAM OR EPROM! il 
FEATURES: 
BLANK PC BOARD | Uses new 2K x 8 (TMM 2016 or HM 6116) RAMs. 
WITH Fully supports Extended Addressing. 
64K draws only approximately 500 MA. 






















DOCUMENTATION 
$52 200 NS RAMs are standard. (TOSHIBA makes 


TMM 2016s as fast as 100 NS. FOR YOUR HIGH 


+ CAP SPEED APPLICATIONS.) 
SUPPORT ICs + CAPS * Board is configured as 3-16K blocks and 8-2K 


* * © 





























: * Compare our price! You could pay $18.00 \ 
ouitat CEE 2 : up to 3 times as much for similar FULL SOCKET SET lesb ak OR Dearne OL PN 
° boards. : 
PATCHES AND INSTALL 00 $15.00 * ere may be installed anywhere on 
PROGRAM ON DISKETTE) $ * Top 16K may be disabled in 2K blocks to avoid 
$6995 1 OG 56K Kit $129 any '/O conflicts. 
4 * One Board supports both RAM and EPROM. 
(8203-1 INTEL $29.95) #LS-100 (FULL 256K KIT) 64K Kit $139 * RAM supports 2MHZ operation at no extra 

































| ASSEMBLED AND | charge! 
TESTED ADD $50 * ire a partially populated in 16K 

32K S100 EPROM/STATIC RAM 

FOUR FUNCTION BOARD! 


BLANK 
PC BOARD 
WITH DATA 

$39.95 


THE NEW ZRT-80 
CRT TERMINAL BOARD! 


A LOW COST Z-80 BASED SINGLE BOARD THAT ONLY NEEDS AN 
ASCII KEYBOARD, POWER SUPPLY, AND VIDEO MONITOR TOMAKE A 
COMPLETE CRT TERMINAL. USE AS A COMPUTER CONSOLE, OR 
WITH A MODEM FOR USE WITHANY OF THE PHONE-LINE COMPUTE 
SERVICES. a ehcia 


FEATURES: 
* Uses a Z80A and 6845 CRT 
Controller for powerful video 






















EPROM. II 
FULL 








EPROM KIT 





SUPPORT 


capabilities. Ic’s 
* RS232 at 16 BAUD Rates from 75 pa ie Chee 
to 19,200. = : $16 


$69.95 














* 24 x 80 standard format (60 Hz). 
* Optional formats from 24 x 80 
(50 Hz) to 64 lines x 96 characters 
(60 Hz). 
* Higher density formats require up to 
3 additional 2K x 8 6116 RAMS. 
* Uses N.S. INS 8250 BAUD Rate Gen 
and USART combo IC. 
x 3 Terminal Emulation Modes which 
are Dip Switch selectable. These 
include the LSI-ADM3A, the Heath BLANK PCB WITH 2716 
H-19, and the Beehive. CHAR. ROM, 2732 MON. ROM 
Composite or Split Video. . 
Any polarity of video or sync. $49 95 
Inverse Video Capability. 
Small Size: 6.5 x 9 inches. 
Upper & lower case with descenders. 







S100 EPROM Card and added = 
SOCKET SET 
$15 


We took our very popular. 32K 
additional logic to create a more versatile EPROM/RAM Board. 





FEATURES: * This one board can be used in any one of four ways: 

A. As a 32K 2716 EPROM Board 

B. As a 32K 2732 EPROM Board (Using Every Other Socket) 
C. As a mixed 32K 2716 EPROM/2K x 8 RAM Board 

D. As a 32K Static RAM Board 

Uses New 2K x 8 (TMM2016 or HM6116) RAM’s 

Fully Supports IEEE 696 Buss Standard (As Proposed) 
Supports 24 Bit Extended Adressing 

200 NS (FAST!) RAM’S are standard on the RAM Kit 
Supports both Cromemco and North Star Bank Select 
Supports Phantom 

On Board wait State Generator 

Every 2K Block may be disabled 

Addressed as two separate 16K Blocks on any 64K Boundary 
Perfect for MP/M* Systems 

RAM Kit is very low power (300 MA typical) 


32K STATIC RAM KIT — $109.95 


For RAM Kit A&T — Add $40 


TERMS: Add $3.00 postage. We pay balance. Orders under $15 add 75¢ 
handling. No. C.0.D. We accept Visa and MasterCharge. Tex. Res. add 
5-1/8% T ax. Foreign orders (except Canada) add 20% P & H. Orders over 
$50, add 85¢ for for insurance. 






















SOURCE DISKETTE - ADD $10 


7 «8 Charecter. Matrix. SET OF 2 CRYSTALS - ADD $7.50 
Requires Par. ASCII keyboard. 


WITH 8 IN. 
SOURCE DISK! $9995 (COMPLETE KIT, 
# ZRT-80 


+ + + + + + + tH eH HF 





+ + + 4% % B® 










2K VIDEO RAM) 






(CP/M COMPATIBLE) 


Digital Research Computers 


P.O. BOX 461565 - GARLAND, TEXAS 75046 - (214) 225-2309 












*TM OF DIGITAL RESEARCH INC. (CALIF.) WE ARE NOT ASSOCIATED WITH DIGITAL RESEARCH INC. (CALIF.) THE SUPPLIERS OF CPM SOFTWARE 
Circle no. 33 on reader service card. 





Dr, a wing on the C-64 (Listing Continued, text begins on page 50) 
Listing Two 


@0123 C166 BA TXA @@214 C2i2 FB 1@ BEQ NORM 
@2t24 C167 29 @7 AND #427 @@215 C214 ; 
@@125 C149 18 CLC @@216 C214 3; SCALE Y FROM @-239 PSEUDO-COORDINATES 
@@126 CiéA 65 FB ADC #FB @@217 C214 3 TO @-199 TRUE SCREEN COORDINATES BY 
@@127 CiéC 85 FB STA #FB Q@@218 C214 3 VY = (¥+1)#213/256 
@@128 C1iéE AD 3F Q3 LDA XPLT @0219 C214 ; 
Q@0129 C171 29 FB AND #4F8 @0220 C214 AC 41 O83 SCALE LDY YPLT 
@@13@ Ci73 65 FB ADC #FB @@221 C217 cB INY 
@8131 C1i7S 85 FB STA #FB @@222 C218 84 AD STY MLPLER 
@@132 Ci77 AD 4@ 3 LDA XPLT+1 @8@223 C21A A? DS LDA #4#D5 3 Piss 
@@133 Ci7A 65 FC ADC 4FC Q@@224 C21iC 85 AC STA MLFCND 
@@134 Ci7C 85 FC STA #FC Q@225 C21E 28 11 C@ JSR MULT 3 RETURN WITH HIGH BYTE 
B@135 Ci7E A? AB LDA ##AQ @@226 C221 8D 41 @3 STA YPLT 3; IN ACCUMULATOR 
@@136 Cis@ 65 FC ADC FC @0227 C224 AD 46 @3 NORM LDA HTORRN 
@@137 C182 8S FC STA 4FC @@228 C227 FO OQ BEO RFT 
@@1368 C184 AD SF @3 LDA XPLT @@229 C229 4C DD Ci JMP SHADE 
@@139 C187 29 7 AND ##07 @@23@ C220 4C FF C1 RFLT JMF RSHADE 
@@14@ C189 49 2Q7 EOR #£07 Q@0231 C22F ; 
@@141 CiBB AA TAX @@232 C22F ; 
@@142 CcCisc Ag @1 LDA #401 Q2233 C22F : 
00143 C18E CA FLOTLF DEX @0234 C22F 2d THRESH .BYTE $2@,$08,435,#3D 
@2144 C1i8F 3B eS BMI FLOT2 @@234 C230 28 
@2145 Ci91 BA ASL. A @@234 C231 35 
@2146 C192 DFA BNE FLOTLP @@234 C232 3D 
@0147 Ci94 AB 20 PLOT2 LDY #0 @8235 C233 a2 -BYTE #02,40A,#37,$3F 
@2148 C196 2C 3E OF BIT FLLTFLG @2235 C234 BA 
@2149 C199 18 05 BFL NOFL.OT @@235 C235 37 
@015@ C196 49 FF EOR #8FF @@235 C236 3F 
@2@i51 Ci9D 31 FB AND (FB) ,Y @@234 C237 10 -BYTE #10,%18,#25,#2D 
@@1S2 C1i9F 2c -BYTE #2C @@236 C238 18 
@2153 C1iA@ 11 FB NOPLOT ORA (4FB) ,Y @@236 C239 25 
@@154 ClLAZ 91 FB STA (4#FB),Y @2236 C23A 2D 
@0155 CiA4 AS @1 LDA #01 3; BASIC ROM RESTORED Q0237 C23B 12 «BYTE £12,#1A,$27,$2F 
@@156 CiA& 89 B1 ORA ##21 @@237 C23C 1A 
@8157 CiaAs 85 Oi STA #01 Q@@237 C23D 27 
@2@158 CiAA 6@ RIS Q@Q237 C23E 2F 
@2159 C1AB ; @@238 C23F 31 -BYTE #31,#39,404,40C 
@@16@ CiAB oa TABLE1 .BYTE #£00,#48,480,#CO @8238 C242 39 
@016@ Ciac 4a @8238 C241 204 
@016@ CiAD 8a @@238 C242 ac 
@216@ CiAE co @2239 C243 33 -BYTE #33,$3B,#06, $0£ 
@@161 CiAF 202 -BYTE #00,#40,#80,4C0 @2239 C244 3B 
@2161 CiBa 42 @@239 C245 86 
@0161 CiBi 82 @@239 C246 BE 
@@141 C1iB2 ca @0@24@ C247 21 -BYTE $21,#29,#14,#1C 
@@i6é2 CipS ao -—BYTE 400,440, 480,#CO @2248 C248 29 
@@162 C184 4a @@240 C249 14 
@0162 C1iBS 82 @@240 C24A 1C 
@@162 CiB& CO @@241 C24B 23 -BYTE #23,42B,#14, £1E 
@0163 C1iB7 ee -BYTE #20,£40,480,4#CO @@241 C24C 26 
@0163 CiBS 40 @@241 C24D 16 
@@1463 Cibo 8a @@241 C24E 16 
@2163 CiBA ca @@242 C24F 23 -BYTE #03,40B,#36,#3€ 
00164 CiBB 2a -BYTE £00,#40,#80,4CQ @@242 C258 @B 
@@164 CIBC 42 @@242 C251 346 
@21464 CiBD Be @@242 C252 36 
@0164 CiBE ca @@243 C253 21 -BYTE #@1,409,$34,#3C 
@@165 CiBF 2 -BYTE £00,440, #80,#CO, #200 @0@243 C254 29 
@@165 Cico 4a @0243 c2ssS 34 
@@1465 Cici Bea @8@243 C256 3c 
@@165 Ccic2 ce 80244 C257 13 -BYTE #13,#1B,$26,#2E 
@@165 Cic3 2 @0244 C258 1B 
@@146 CiC4 ; @8244 C259 26 —, 
@2167 Cic4 ea TABLE2 .BYTE ¥20,4@1,#02,403 @0244 C25A 2E 
@@167 CicS 21 @@245 C25B 11 -BYTE #11,#19,%24,42C > 
@@167 Cicé&é e2 @8245 c25C 19 
@2167 CiC7 @3 @0@245 C25D 24 
@0148 cCicBe @5 -BYTE #05,4#06,4207,408 @0@245 C25E 2c 
@@ié8 Cic? @0244 C2Z5F 32 -BYTE #32,$35A,407,#0F 
@2148 CiCA 27 @2244 C24Q 3A 
@@168 CiCB ee @0246 C261 27 
@0169 CiCC @A -BYTE #@A,$@B,#2@C,#@D @@246 C2462 OF 
@@169 C1CD eB @@247 C263 30 -BYTE #30,#38,#05,42D 
@@169 CiCE ec @@247 C244 38 
@@169 CiCF aD Q@0247 C2465 25 
@G17@ Cid® oF -BYTE QF ,#10,$11,#12 @0@247 C246 aD 
@@172 CiD1i 18 Q@0248 C247 22 -BYTE #22,#2A,#17,#1F 
@@17@ cCid2 11 @@248 C248 2A 
@217@ cip3s i2 @0248 C269 17 
@@171 Cipd4 14 -BYTE #14,#15,#16,17 @0248 C246A IF 
@8171 C1iDS: 1S @8249 C26B 20 -BYTE $20,%28,#15,#1D 
@8171 CiD&d 14 @@249 C26C 28 
@@171 Cipd7 17 @@249 C26D 15 
@@172 Cine 19 -BYTE #19,#1A,#1B,#1C,#1E @@249 C26E 1D 
@@172 CiD9 1A @@250 C24F i . END 
@@172 CiDA 1B 
@@172 CiDB iC 
@0@172 Cipvc 1€ ERRORS = 22020 
@@173 CiDD ; 
@0174 CibdD 3 OTE NFER IE 9 aE FE EEE HE HE aE HE Se 
@0175 C1DD ; SYMBOL TABLE 
@0174 CiDD ; SHADING BY HYBRID DITHER/DOT-GROWTH 
08177 C1DD ; SYMBOL VALUE 
@2178 C1DD AD 3F @3 SHADE LDA XFLT 3; USE BITS ----- eee CLEAR c1i2c CLRLF C138 COL1 c1ic COLOR C118 
@@179 CiE@® 29 27 AND #4£07 3; OF ‘X’ SCREEN COORD GREATR CiFC GRFOFF C13 GRFON CQE2 HTORRN 244 
@81689 CiE2 8D 48 @3 STA TEMP MLPCND Q@AC MLPLER Q@QAD MORE c2ac MULT CQ11 
@@161 CiES AD 41 QS LDA YPLT + AND BITS —-~-- ee % NOPLOT C1AQ NORM C224 NOSCAL Q347 ORIGIN CQE2 
@@162 CIES 29 @7 AND ##07 3 OF ‘Y’ SCREEN COORD PLOT C143 PLOT2 C194 PLOTLF C1i®8E FLTFLG 33 
@0183 CiEA 2A ASL A 3 SHIFTED INTO —-*x*—-- PLTSHD C2QF PROD Q@AE RAM Q33E RANDOM Cece 
@8184 CiEB @A ASL A 3 FOSITION TO DETERMINE RNDM CQ20 RPLT C22C RSHADE CIFF SCALE C214 
@@185 CiEC @A ASL A 3; 6-BIT OFFSET IN SHADE C1DD TABLE1 C1iAB TARLE2 C1C4 TEMP: 0248 
@@186 C1ED @D 48 @3 ORA TEMP 3 THRESHOLD TABLE THRESH C22F UNPLOT C146 VALUE Q344 VIC1 Q342 
@@187 CiF@ AA TAX VIC2 @343 XPLT Q33F YPLT Q341 
@@166 Ci1Fi BD 2F C2 LDA THRESH, xX 3 SCREEN-FOSITION-WEIGHTED s2ois 
@@189 CIF4 CD 44 @3 CMP VALUE ; THRESHOLD VALUE END OF ASSEMBLY End Listing Two 
@2199 CiF7 1@ a3 BFL GREATR 
@0191 C1iF9 4C 46 Ci JMP UNFLOT 
@@192 CiIFC 4C 43 C1 GREATR JMP FLOT 
@0193 CiFF ; e e 
@0194 CiFF 5 FFE ETE TIE ETE FFE FE EE TE IE FETE IE EEE EEE I FE HE L f Th 
iss: cer isting Three 
@0196 CiFF + SHADING BY RANDOM HALFTONE a 
@@197 CiFF ; 88201 e2e0 3; FACET - DRAW SHADED TRIANGULAR FACETS 
@@198 CiFF 2@C8 ca RSHADE JSR RANDOM @a8e2 eea0 3 AND STRAIGHT LINES. 
@2199 C2@2 4A LSR A 3 REDUCE RANDOM BYTE 22083 020 ; 
@8220 C223 4A LSR A 3 TO & BITS FOR SHADE 22024 e202 3; RICHARD L, RYLANDER 11/4/84 a 
@02@1 C204 CD 44 @3 CMP VALUE 3 VALUE COMPARISON @22e5 e@2a0 ; 
@0202 C207 18 @3 BFL MORE 20806 eae 3 LOAD “ARITH.HEX" AND “GRAPH. HEX” 
@82@3 C209 4C 46 C1 JMP UNFPLOT 20007 2020 ; BEFORE USING 
@0204 cz@c 4c 43 C1 MORE JMP FLOT 
@8205 C2aF ; Songe | Q000 3 
Q@@204 C2OF 5 I HERERO REE 22029 e008 ORIGIN = #C26F 
90207 Crar : 20818 2ee00 FAM = #02340 
@8288 C2eF 3 PLOT A POINT WEIGHTED BY SHADING SCHEME Soot! - save ; 
@@28? C2eF ; AND SHADE VALUE pg Sa eer ite 
0210 C20F 3 CHECK ‘“NOSCAL’ FLAG FOR SCALING OF Y COORD aes mien ee es ecahs 
0211 C2OF ; CHECK ‘HTORRN’ FLAG FOR TYPE OF SHADING 22215 ee00 NOSCAL = 30347 
eon nope AD 47 @3 PLTSHD LDA NOSCAL QW8ibé Ba20 PLOT = $C143 
@2017 9220 UNPLOT = $C146 (Continued on page 66) 
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SMALL} FOR IBM-PC 


* | Starlight FORTH 


sAppic 65SC802 & 65SC816 

# Atari i ; 

# AIM 65 The new 16 bit CMOS 6502's from Small C Compiler Version 
* Commodore Western Design Center and GTE 2.1 for PC-DOS/MS-DOS 
Pie eeremtitic ? m Source Code included 


* © Highly Extended fig-FORTH , for Compiler & Library 
#® Full Double Number Set - Strings * 


» °® Optional Tools: Meta~Cross~ Compiler with New 8086 Optim|zatlons 


Assembler and Debugger & RICN I/O & Standard Library 
# Multi-Tasking Super Fast FORTH-83 soon 
Your present 8 bit. system will run faster we 
with 16 bit software (FORTH) and a 65SC802 


and still runs your existing 8 bit software CBUG SOURCE LEVEL DEBUGGER FOR SMALL C 


Starlight FORTH Systems * Break, Trace, and Change 
15247 N. 35th St variables all on the 








% Phoenix, AZ 85032. * eNeica sae pO eee 
a ca eg Oy Datalight 
* Ke 11557 8th Ave. N.E. 
* ae * Seattle, Washington 98125 





(206) 367-1803 


ASM or MASM is required with compiler. 
Include disk size (160k/32O0k), and DOS version with order. 
VISA & MasterCard accepted. Include card no. & expiration date. 
Circle no. 60 on reader service card. Washington state residents include 7.9% sales tax. 
IBM-PC & PC-DOS are trademarks of International Business Machines 
MS-DOS is a trademark of Microsoft Corporation. 


Circle no. 6 on reader service card. 












DATESTAMPER*" has the answers 


Bi Le When did we 
using Lot LSiep-is fe: print that letter? 
ae Bos t Tchknts: 





aE ee eee == as the mailing 
Viet or miter eee tt) Ce tet lmary eC CEES: 
cre eran Tee ere err ae, 

pean seazs: Reese: Which is the 
latest version? 


3 
-: 
S 
2 

e 
Ss 
s 
- 


aA 





DateStamper™ keeps your CP/M computer up-to-date! 
e avoid erasing the wrong file e keep dated tax records of computer use 
e back-up files by date and time e simplify disk housekeeping chores 


















OPERATION: DateStamper extends CP/M 2.2 to automatically record the date and time a file is created, read or 
modified. DateStamper reads the exact time from the real-time clock, if you have one; otherwise, It records the order in 
which you use files. Disks initialized for datestamping are fully compatible with standard CP/M. 

INSTALLATION: Default (relative-clock) mode is automatic. Configurable for any real-time clock, with pre- 
assembled code supplied for popular models. Loads automatically at power-on. UTILITIES: ¢ Enhanced 
SuperDirectory * Powerful, all-function DATSWEEP file-management program with date and time tagging @ Disk- 
initializer © Installation and configuration utilities PERFORMANCE: Automatic. Efficient. Invisible. Compatible. 
Requires CP/M 2.2. Uses less than 1K memory. Real-time clock is optional. 


When ordering please specify format 





8” SSSD, Kaypro, Osborne Formats ........... $49 Write or call for further information 
For other formats (sorry, no 96 TPI) add $5. 
SRTACNITVGs CRG AGT IIIIGE oe ics ss aes os oS ee $3 
California residents add 6% sales tax : 
MasterCard and Visa accepted (Plu Pe rfect Systems) 
Specialized versions of this and other software available for the Kaypro. BOX 1494 © IDYLLWILD, CA 92349 © 714-659-4432 





CP/M is a registered trademark of Digital Research, Inc. 
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Dr, a wing on the C: -64 (Listing Continued, text begins on page 50) 
Listing Three 


28018 
Q@0019 
80828 
28821 
Q@0022 
88023 
Q8824 
@2025 
Q@08246 
@@027 
82828 
@2029 
Q2Q032e 
6031 
@0832 
@B833 
Q@2034 
Q@8835 
Q@2B36 
@2837 
@0038 
88839 
82240 
02041 
@2042 
843 
2844 
@8045 
@B244 
@0047 
@0048 
02849 
20852 
88051 
@88S2 
82853 
Q@0054 
88e55 
Q@80S56 
882357 
@8058 
@80S59 
88262 
@0061 
@@8462 
28063 
@Q064 
8065 
@QB46 
8067 
8268 
22849 
Q@8872 
@8871 
@8872 
0273 
82074 
88275 
@2276 
80077 
82078 
802879 
8008a 
@0e81 
22082 
@8283 
@0084 
@0085 
22086 
20087 
0088 
@0089 
22098 
@2091 
82892 
2093 
88294 
Q@8895 
@2296 
@0297 
80098 
82899 
00100 
@0101 
@2182 
Q@8103 
@0104 
282185 
@8106 
22107 
00188 
80109 
Q@8112 
@G611i1 
@@112 
@2113 
00114 
@0115 
@@116 
@0117 
@2118 
@@119 
@0128 
@G121 
@2122 
@@123 
@0124 
Q@0125 
@@126 
@8127 
@8128 
@@129 
@2130 
Q@G131 
@8132 
@0133 
0134 
@0135 
@G136 
8137 
@0138 
@0139 
2148 
Q2141 
Q@0142 
Q@0143 
00144 
@0145 
8@1446 


G00 
@202 
2200 
2222 
2000 
G82 
@822 
802 
2220 
Q800 
G82 
2028 
Q@34A 
@34A 
@34C 
@34D 
Q34F 
@352 
@352 
@353 
O354 
@355 
@356 
@358 
@359 
Q@2S5A 
@358 
@35C 
@35D 
Q@35E 
@3SF 
@368 
@361 
@362 
@363 
8364 
@365 
@367 
@348 
Q36A 
B36A 
Q@36A 
C2é6F 
C26F 
C26F 
C26F 
C26F 
C26F 
C26F 
C26F 
C271 
C273 
C275 
C278 
C27A 
C27D 
C28 
C281 
C282 
C283 
C285 
C286 
C286 
C2846 
C286 
C286 
C286 
C286 
c28s 
C268 
c2ec 
C28F 
C292 
C293 
C296 
C297 
C299 
C29A 
C29A 
C29A 
C29A 
C29A 
C29A 
C29C 
C29F 
C2A@ 
C2A3 
C2A6 
C2A7 
C2AA 
C2AB 
C2AD 
C2AE 
C2AE 
C2AE 
C2AE 
C2AE 
C2AE 
C2Ba 
C2B1 
C2B4 
C2B7 
C2BA 
C2BD 
C2BF 
C2C2 
C2c3 
C2cs 
C2cé6 
C2c9 
C2cc 
C2CF 
C2D2 
C2D4 
C2D7 
C2DA 
C2DB 
C2DB 
C2DB 
C2DB 
C2DB 
C2DB 
C2DB 
C2DB 
C2DD 
C2E@ 
C2E3 
C2E& 
C2E8 


Aa 


48 
B9 
99 
6 
99 
ee 
12a 
62 


A 
BS 
48 


99 
68 
99 
8B 
10 
62 


@6 
DS 
AC 
4c 
AD 
it 
4c 


@2 
4A 


4D 


4D 


Ee 


@2 
4D 


5@ 
4D 


5a 


EF 


Qs 


cea 
@3 


@3 


@3 
@3 


@3 


Q3 


@3 
@3 


@3 


@3 
@3 
@3 
QS 


C2 


@3 
c2 
Qs 


C2 


MLF'CND 
MLPLER 
FROD 
MULT 


, 
DVDND 
DVSOR 
QUOT 
DIVIDE 


’ 


5 

XMIN 
YMIN 
XMID 
YMID 
XMAX 
YMAX 
YTOP 
YBOT 
YBASE 
DLTAXt 
DLTAX2 
DLTAX3 
DEL TAX 
DLTAY! 
DLTAY2 
DLTAYS 
DELTAY 
XDIFF 
FLAG 
FLAG2 
FLAGS 
FLAG 
EDGES 
ERROR 
MODE 
COUNT 
; 

; 


#AC 
AD 
SAE 
FCO11 


$FD 
4FB 
#FD 
#CB25 


*=RAM 


H2H+D 
e=e+1 
e#=He+2 
*#=H+1 
H#=Kn+2 
H=He+1 
tan+i 
H=H+1 
#=e+i 
+= H+2 
ezH+) 
w=oHe+1 
H=H+] 
e=H+1 
#=e+] 
#=H+1 
H=Hn+)] 
*#=H4+) 
#=H%+) 
*#=H+1 
wont] 
#=H+) 
er e+)] 
H=H+2 
#=en+) 
#eHe+2 


#=ORIGIN 


He HE THE TE TE He TEE FE HEE J EE HE 2 Ee HE Ee Ee aE OE 9 0 a 2 EE 9 0 a 2 a ee 


SCALE ALL Y COORDINATES FROM @..239 


3 PSUEDO-COORDINATE RANGE TO @..199 
3 TRUE SCREEN COORDINATE RANGE 


; 
SCALE 


SCLP 


3 
SWAP 12 
LOOF1 


s 
’ 
s 


EXCHANGE 


LDY #6 

LDA ##D5 
STA MLPCND 
LDA YMIN,Y 
STA MLPLER 
JSR MULT 
STA YMIN,Y 
DEY 
DEY 
DEY 
BPL 
RTS 


SCLP 


LDY #2 

LDA XMIN,Y 
PHA 
LDA 
STA 
PLA 
STA 
DEY 
BPL 
RTS 


XMID,Y 
XMIN,Y 


XMID,Y 


LOOP1 


HRKE RE HHHEHHAK EMRE HME RE REE 


‘MIN’ AND ‘MID’ COORDINATES 


5 MF FE HEI HE HE HE HH He HE SE He HEHE HE IEE HEE HEE HEE EE 


; 
3 EXCHANGE ‘MID‘ AND ‘MAX’ COORDINATES 


SWAP23 
LOOP2 


LDY #2 

LDA XMID,Y 
PHA 
LDA 
STA 
PLA 
STA 
DEY 
BPL 
RTS 


XMID,Y 
XMAX,Y 


LOOF2 


XMAX,Y> 


FEE AHHH EH EH 


3 SORT COORDINATES ACCORDING TO X COMFONENTS 


3 
SORTX 
SORTLF 


NOSWP 1 


SORTED 
5 


LDX #2 
SEC 
LDA 
SBC 
LDA 
SBC 
BCS 
JSR 
DEX 
BEQ 
SEC 
LDA 
SBC 
LDA 
SBC 
BCS 
JSR 
JMP 
RTS 


XMID 
XMIN 
XMID+1 
XMIN+1 
NOSWF'1 
SWAF'12 


SORTED 


XMAX 
XMID 
XMAX+1 


SQRTLP 
SWAP23 
SORTLP 


XMID+1 - 


5 9 FE HE HE HE HE HEE EH HE HE HE EH HE HE HE IE EE EE 


5 
3 DRAW A LINE BETWEEN XMIN,YMIN AND XMID,YMID 


; 
s 
; 
LINE 


USING FAST DDA 
TECHN IQUE 


LDA #2 

STA XMAX+1 
JSR SORTX 
LDA NOSCAL 
BEQ OUTLN 
JSR SCALE 


(DIGITAL DIFFERENTIAL ANALYZER) 


ENSURE XMAX IS 
LARGEST BEFORE 
ORDERING 


“MIN’ AND ‘MID’ 


Q@0147 
2148 
@8149 
88152 
@@151 
@@152 
80153 
@@154 
@@155 
@2156 
@2157 
@@158 
Q@8159 
@2148 
Q0141 
@2142 
@2163 
Q@8164 
Q@8165 


@0164 
@0147 
20148 
20149 
00172 
@0171 
@a172 
20173 
20174 
20175 
0176 
0177 
@0178 
20179 
20180 
@0181 
@a182 
20183 
22184 
20185 
@0186 
20187 
00188 
22189 
20190 
00191 
80192 
20193 
22194 
20195 
Q0196 
20197 
82198 
20199 
20200 
20201 
20202 
20203 
20204 
20205 
28206 
20287 
2@208 
20209 
20210 
@0211 
@@212 
@8213 
00214 
20215 
@0216 
@8217 
#0218 
20219 
88220 
40221 
2222 
0223 
00224 
20225 
0226 
@8227 
20228 
28229 
08232 
@0231 
@8232 
80233 
20234 
80235 
@8236 
28237 
80238 
20239 
20240 
20241 
20242 
20243 
20244 
00245 
8246 
20247 
20248 
20249 
20250 
@@251 
@Q@252 
20253 
20254 
20255 
@0256 
20257 
20258 
82259 
22262 
20261 
@8262 
@0263 
0264 
20265 
20266 
0247 
0268 
20269 
20272 
@0271 
@0272 


C2EB 
C2EE 
C2F1 
C2F4 
C2F7 
C2FA 
C2FD 
C302 
C303 
CIOS 
C326 
C309 
C3a@Cc 
C3GE 


C3tt.. 


C314 
C317 
C3ia 
C31B 


C31E 
C321 
C324 
C327 
C329 
C32c 
C32F 
C332 
C334 
C337 
C33A 
C33D 
c34e 
C342 
C345 
C347 
C34A 
£34D 
C34F 
C352 
C354 
C357 
c3se 
C35B 
C3SE 
C341 
C364 
C346 
C349 
C34A 
C346D 
C370 
C373 
C376 
C379 
C37C 
C37F 
C381 
C382 
c3a2 
c3es 
c3ee 
c3eB 
C3aE 
C391 
C394 
C397 
C39A 
C39B 
C39E 
C3A1 
c3a4 
C3A4 
C3Ag 
c3ac 
C3AF 
C3B1 
C3B4 
C3B7 
C3BA 
C3BD 
C3BF 
C3c2 
c3cs 
C3C7 
C3cA 
c3cc 
C3CF 
C3D1 
c3p4 
C3D5 
c3pe 
C3DB 
C3DE 
C3E1 
C3E4 
C3E7 
c3e8 
C3EB 
C3EE 
C3Fi 
C3F4 
C3F6 
C3F9 
C3FA 
C3FD 
CFF 
c4ea2 
C404 
C407 
C4aA 
c4ec 
c4ep 
c4ep 
c4ep 
c4e@p 
c4a@D 
c4eaD 
C4ge 
C411 
C414 
C416 
c419 
C41a 
c41D 
C420 
C421 


53 
54 


SS 


54 
Ss 


54 


@3 


@3 


@3 
@3 
@3 
Q@3 
Qs 
Os 
G3 


@3 


“O83 


G3 
@3 
Qs 
@3 


> 
7 


@3 
@3 
@3 


@3 


Qs 


Ci 
cs 
ci 
@3 


@3 
@3 


@3 


Qs 


@3 


> 
~ 


@3 
@3 
Q3 
@3 


> 
> 


@3 


@3 
@3 


Qs 
Qs 


Q@3 
@3 


@3 
Qs 


23 


@3 
@3 


@3 


OUTLN 


STEPY 


LNLP1 


ERASE1 
SK1 


NSLOPE 
SK2 


NOINC1 


SK3 


i 
STEPX 


LNLP2 


ERASE2 
SEP 1 


NOINC2 
NGSLP 


SKP2 


SKPS 


TEST. 


Cet ee ee we ee 


/LINE 


JSR 
LDA 
STA 
LDA 
STA 
LDA 
STA 
LDA 
BNE 
SEC 
LDA 
SBC 
BCS 
LDA 
STA 
STA 
LSR 
SEC 
LDA 
SBC 
STA 
LDA 
SBC 
STA 
INC 
LDA 
BNE 
JSR 
JMP 
JSR 
LDA 
BNE 
INC 
BNE 
DEC 
BIT 
BMI 
INC 
BNE 
INC 
SEC 
LDA 
SBC 
STA 
LDA 
SBC 
STA 
CLC 
LDA 
ADC 
STA 
LDA 
ADC 
STA 
DEC 
BNE 
RTS 


LDA 
STA 
STA 
LDA 
STA 
STA 
LSR 
ROK 
SEC 
LDA 
SBC 
STA 
LDA 
SBC 
STA 
LDA 
BNE 
JSR 
JMP 
JSR 
INC 
BNE 
INC 
BIT 
BMI 
LDA 
BNE 
INC 
BNE 
DEC 
SEC 
LDA 
SBC 
STA 
LDA 
SBC 
STA 
CLC 
LDA 
ADC 
STA 
LDA 
ADC 
STA 
SEC 
LDA 
SBC 
STA 


BCS 
DEC 
BIT 
BPL 
RTS 


SEC 
LDA 
SBC 
BCS 
LDA 
PHA 
LDA 
STA 
PLA 
STA 


FINDXY 
XMIN 
XPLT 
XMIN+1 
XPLT+1 
YMIN 
YRLT 
DLTAX1+1 
STEFX 


DLTAX1 
DLTAY1 
STEPX 
DILTAY1 
ERROR 
COUNT 
ERROR 


DLTAX1 
ERROR 
ERROR 
DLTAX1i+1 
#2 
ERROR+1 
COUNT 
MODE 
ERASE1 
PLOT 
SKi 
UNPLOT 
FLAG1 
NSLOPE 
YPLT 
SK2 
YPLT 
ERROR+1 
SKS 
XPLT 
NOINC1 
XPLT+1 


ERROR 
DLTAY1 
ERROR 
ERROR+1 
#2 
ERROR+1 


ERROR 
DLTAX1 
ERROR 
ERROR+1 
DLTAXi+1 
ERROR+1 
COUNT 
LNLP1 


DLTAX1 
ERROR 
COUNT 
DLTAXi+1 
ERROR+1 
COUNT+1 
ERROR+1 
ERROR 


DLTAY1 
ERROR 
ERROR 
#2 
ERROR+1 
ERROR+1 
MODE 
ERASE2 
PLOT 
SKP 1 
UNPLOT 
XPLT 
NOINC2 
XPLT+1 
ERROR+1 
SKFS 
FLAG1 
NGSLP 
YPLT 
SKP2 
YPLT 


ERROR 
DLTAX1 
ERROR 
ERROR+1 
DLTAX1+1 
ERROR+1 


ERROR 
DITAY1 
ERROR 
ERROR+1 
#0 
ERROR+1 


COUNT 
#1 
COUNT 
TEST 
COUNT+1 
COUNT+1 
LNLP2 


YTOP 
YBOT 
DRAW 
YTOP 


YBOT 
YTOP 


YBOT 


3 ENTRY POINT TO 
3 OUTLINE FACETS 


3 CHECK FOR DX>DY 


; @ = DRAW, 1 = ERASE 


; @ = POSITIVE SLOFE 


3 ALWAYS BRANCH 


3 ALWAYS BRANCH 


FE HE HIE HTT ETE I TET TE TE IE TE I FE EET TE TH TE 
DRAW A SHADED VERTICAL LINE AT 
XPLT FROM YTOP TO YBOT 


3 MAKE SURE YTOP>YBOT 


(Continued on page 68) 


Dr. Dobb’s Journal, May 1985 





















De Smet C 


8086/8088 Development Package 


$109 


FULL DEVELOPMENT PACKAGE 


e Full K&R C Compiler 

e Assembler, Linker & Librarian 

e Full Screen Editor 

e Execution Profiler 

e@ Complete STDIO Library (>120 Func) 


Automatic DOS 1.X/2.X SUPPORT 
BOTH 8087 & S/W FLOATING POINT 
OVERLAYS 


OUTSTANDING PERFORMANCE 


@ First and Second in AUG ’83 BYTE 
benchmarks 





symBotic pesucceR $() 












@ Examine & change variables by name 
using C expressions 

@ Flip between debug and display screen 

e Display C source during execution 

@ Set multiple breakpoints by function or line 
number 






















DOS LINK SUPPORT $35 


@ Converts DeSmet.0 to DOS.OBJ Format 
e LINKs with DOS ASM 
@ Uses Lattice® naming conventions 


WARE 


CORPORATION 


P.O. Box C, Sunnyvale, CA 94087 
(408) 720-9696 
Street Address: 505 W. Olive, #767 (94086) Call for hrs. 


All orders shipped UPS surface on IBM format disks. Shipping included in price. California 
residents add sales tax. Canada shipping add $5, elsewhere add $15. Checks must be on U.S. 
Bank and in U.S. Dollars. Call 9am—1pm to CHARGE by VISA/MC/AMEX. 


Foreign Distributors: AFRICA, HI-TECH SVCS, Gaborone 4540 or Telex 2205BD LANGER @ 
ENGLAND: MLH Tech, 0606-891146 @ JAPAN: JSE 03-486-7151 @ 
SWEDEN: ESCORT DATA 08-87 41 48 or THESEUS KONSULT 08-23 61 60 















Circle no. 18 on reader service card. 








THE @° JOURNAL 


The C Journal will help YOU use C on YOUR machine 

—IBM PC™, CP/M™, Macintosh™, or UNIX™-based — 

micro, mini, or mainframe. 

It's the ONE publication for programmers, software 

managers, and other computer professionals who 

need to keep aware of developments in the indus- 

try's fastest-growing language. 

e regular columns for novice through advanced C 
programmers 

e software product and book reviews 

e tips on working with major compilers and 
operating systems 

@® news from the ANSI standards committee and the 
industry 

For FREE sample issue and discount subscription 

information, write, call, or circle our reader service 

number. The C Journal is a quarterly publication, 

and costs $28/year (add $9 for overseas airmail). 


Subscriptions/Advertising: Editorial: 
Christina Gardner Rex Jaeschke 
(201) 989-0570 (703) 860-0091 


another independent publication from 
a InfoPro Systems 
3108 Route 10 oe 
P.O. Box 849 
Denville, NU 07834 
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TIMES FASTER! 


SuperFast Software Development Tools 





INCREASE YOUR PROGRAMMING EFFICIENCY 
with high-performance software development products from SLR Systems. 
No other tools approach the speed or flexibility of the SLR Systems line. 


“Z80ASM is an extraordinary product...”, 
Robert Blum, Sept. 84 DDJ 


ASSEMBLERS 


e RMAC/M80 macros @ Math on external 
e Nested INCLUDES & words and bytes 














conditionals e Define symbols from 
e 16 char. labels on console 
externals e Generate COM, HEX, 
e Built in cross- SLR-REL, or Micro- 
reference soft-REL files 
e Optional case e Time & Date in listing 
significance @ Over 30 configure 


Phase/dephase options 






ZROASIMA stall Dig PEO ges Oe ee $125 

NEW! Z80ASM+¢ -all tables virtual .............. $195 
NEW! SLRMAC -full Intel 8080, with 

Z80.LIB extensions internal ........... $125 

NEW! SLRMAC+ -all tables virtual ............. $195 


Z80 CPU, CP/M compatible, 32K TPA required. 


“Z80ASM...a breath of fresh air...”, 
Computer Language, Feb. 85 


gums) C.O.D., Check or Money Order Accepted 





SRE 





« ..in two words, I'd say speed & flexibility”, 
Edward Joyce, Nov. 84 Microcomputing 


LINKERS 


e Links SLR & M80 e Three separate 












format files address spaces 
e Output HEX or COM e Load map and 
file SID/ZSID .SYM file 










SLRNK+ includes: 
e All tables overflow to e Works with 





disk FORTRAN & BASIC 

e HEX files do not fill e Generate PRL & SPR 
unused space files 

e Intermodule cross- e Supports manual 
reference overlays 

e EIGHT separate e Full 64K output 


address spaces 


SLRNK -fastest memory based ......... $125 
NEW! SLRNK+ -full featured virtual ........... $195 
Combo Paks available from $199. - $299. 
For additional information contact SLR Systems 


1-800-833-3061, in PA (412) 282-0864 
1622 N. Main St., Butler, PA 16001 © Telex 559215 


L R_W_Systems 
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Dr. a wing on f he C-64 (Listing Continued, text begins on page 50) 
Listing Three 


@@273 C424 AD 53 @3 DRAW LDA YTOP @0401 C533 AD 42 @3 LDA FLAGS 
02274 C427 8D 41 83 STA YPLT @2422 C5264 BD &3 @3 STA FLAG 
88275 C42A 20 24 C2 JSR NORM 3; PLOT A SHADE-WEIGHTED @04e3 C539 20 2C C4 JSR ENDPTS 
@@274 C42D AD 53 O32 LDA YTOP ; PIXEL CHECKING ONLY Q0404 CS3C 8D 54 @3 STA YBOT 
@0277 C43@ CD 54 @3 CMF YBOT 3; FOR SHADE STYLE @2405 CS3F 22 @D C4 JSR VLINE 
02278 C433 FQ 2 BEQ DONE @2426 C542 AD 4@ @3 LDA XPLT+1 
@8279 C435 CE 53 a3 DEC YTOF @2407 CS4S CD 4E a CMP XMID+1 
00282 C438 4C 24 C4 IMP DRAW 22408 C548 Da as BNE NEXTX1 
@@281 C43B 62 DONE ATS @2409 CS4A AD 3F 23 LDA XFLT 
@0@282 C43c ; @2418 CS4D CD 4D a3 CMP XMID 
88283 C42C 5 FEI IE IE IEE IIE FE IEE IEE IE IE IE HE FE EE 28 EE JE IE FEE HE 00411 CSS@ FQ OB BEQ CONT 
@0284 C43Cc ; @2412 CSS2 EE 3F O3 NEXTX1 INC XFLT 
@@285 C43Cc 3 FIND ENDFOINTS FOR VERTICAL LINES @2413 CSSS D2 a3 BNE SKIF3 
@0286 C43c ; BETWEEN FACET EDGES @2414 C557 EE 40 @3 INC XPLT+1 
@@287 C43c ; @2415 CSSA 4C FB C4 SKIP3 JMP FCETLP 
@@286 C43C AD SF Q3 ENDFTS LDA XDIFF @2414 CSSD 38 CONT SEC 
@2289 C43F 85 AC STA MLFCND @2417 CSSE AD 3F Q@3 LDA XPLT 
@@292 C441 AD SE @3 LDA DELTAY @2418 CSé61 ED 4A O3 SBC XMIN 
@@291 C444 85 AD STA MLPLER 22419 C564 8D SF 23 STA XDIFF 
@@292 C444 20 11 CO JSR MULT @042@ CS67 AD 59 a3 LDA DLTAX3 
@@293 C449 85 FE STA DVDND+1 @2421 CSé6A Fe é5 BEQ FINI 
@2294 C44B AS AE LDA PROD @2422 CS4&C 8D SA Q3 STA DELTAX 
@@295 C44D 85 FD STA DVDND @@423 CS6F AD 5D 23 LDA DILTAYS 
@82296 C44F A? aa LDA #8 @0424 CS72 8D SE a3 STA DELTAY 
@@297 C451 85 FC STA DVSOR+1 @2425 CS75 AD 62 a3 LDA FLAG3 
@2298 C453 AD SA Q3 LDA DELTAX @2426 C578 SD 63 @ STA FLAG 
@@299 C456 8S FB STA DVSOR @0427 CS7B AD 4C @3 LDA YMIN 
02300 c458 70 25 ca JSR DIVIDE @@428 CS7E sD SS @3 STA YBASE 
@2@301 C45B AD 43 a3 LDA FLAG @@429 CS81 28 3C C4 JSR ENDFTS 
@8382 C45E De® as BNE NEGSLF @843@ C584 8D 54 a3 STA YBOT 
2303 C4460 18 CEC @8431 CSe87 38 SEC 
@@304 C461 AD 55 Q3 LDA YBASE @@432 C588 AD SF @3 LDA XFLT 
@@3@5 C464 65 FD ADC QUOT @@433 CS8B ED 4D 23 SBC XMID 
@Q]3Q26 C46& 92 G6 BCC SKIF2 @2434 CS8E sD SF a3 STA XDIFF 
@2307 C468 38 NEGSLP SEC @0@435 -CS91 AD S8 @z LDA DLTAX2 
@@308 C449 AD 55 Q3 LDA YBASE Q@8@436 C594 FQ 39 BEO FINI 
@@309 C4éC €E5 FD SBC QUOT 82437 C5964 8D SA @3 STA DELTAX 
Q@@310 C4é6E 42 SKIP2 RTS @0438 C599 AD SC Q@3 LDA DLTAY2 
@W31t C4é6rF ; @2439 CS9C 8D SE @3 STA DELTAY 
@@3i2 C44F 5 FEIT ETE JETT TE ETE EEE EEO IEE aE tee @0440 CS9F AD 41 a3 LDA FLAG2 
@@3i3s C44F ; @2441 CSA2 SD 63 23 STA FLAG 
@@314 C46F 3 FIND COORDINATE DIFFERENCES @2442 CSAS AD 4F a3 LDA YMID 
@@315 C46F ; @0@443 CSAB eD 55 a3 STA YBASE 
@@316 C46F 3; ALL "DELTA X" VALUES FOSITIVE, @2444 CSAB 22 3C C4 JSR ENDPTS 
@@317 C46F 3; SINGLE FRECISION (JUST LOWER BYTE) @2445 CSAE 8D 53 a3 STA YTOP 
@@318 C46F ; @2446 CSBi 20 @D C4 JSR VLINE 
22319 C46F 38 FINDXY SEC 202447 CSB4 AD 42 a3 LDA XPLT+1 
@@32@ C47®@ AD 4D a3 LDA XMID @2448 CSB7 CD Si a3 CMP XMAX+1 
@@321 C473 ED 4A @3 SBC XMIN @2449 CSBA D2 2a BNE NEXTX2 
@@322 C476 8D 54 O3 STA DLTAX1 @0245@ CSBC AD 3F @3 LDA XPLT 
@@323 C479 AD 4E @3 LDA XMID+1 @2451 CSBF CD 52 a3 CMP XMAX 
@@324 C47C ED 4B a3 SBC XMIN+1 @2452 CSC2 FQ oB BEQ FINI 
@2325 C47F 8D 57 @3 STA DLTAX1+1 @@4S3 CSC4 EE SF a3 NEXTX2 INC XPLT 
@0326 C4s2 38 SEC @2454 CS5SC7 De a BNE SKIP4 
@2@327 C483 AD SQ O3 LDA XMAX @@455 CSC9 EE 42 @3 INC XPLT+1 
@8@328 C484 ED 4D a3 SBC XMID @@456 cSCC 4cC 5D C5 SKIP4 JMP CONT 
@2329 C489 8D 58 a2 STA DLTAX2 @@457 CSCF AD 64 @3 FINI LDA EDGES 
Q@33@ Cc4ec 38 SEC @2458 CS5D2 FO 15 BEQ FINISH 
@9331 C48D AD 58 a3 LDA XMAX @@459 CSD4 2@ EB C2 JSR OUTLN 
@@332 C49@ ED 4A a3 SBC XMIN @2468 CSD7 20 9A C2 JSR SWAP23 
@2333 C493 BD 59 OZ STA DLTAX3 @8461 CSDA 2@ EB C2 JSR OUTLN 
@Q334 C496 ; @8462 CSDD 20 86 C2 JSR SWAP12 
@B335 C496 3; USE ABS(DELTA Y) VALUES, @@463 CSE@ 228 7A C2 JSR SWAP2S 
@Q336 C496 3; FLAGS INDICATE SLOPE OF LIMIT LINES @0464 CSES 20 86 C2 JSR SWAPI2 
@@337 C496 ; @2465 CSES 20 EB C2 JSR OUTLN 
@@338 C496 AP BO LDA #£00 @8466 CSE9 48 FINISH RTS 
@@339 C498 BD 68 Os STA FLAG1 @0467 CSEA - END 
@234@ C49B 8D 61 a3 STA FLAG2 
@@341 C49E 8D é2 @3 STA FLAGS 
@@342 C4Ai 38 SEC ERRORS = 82002 
@@343 C4A2 AD 4F Q3 LDA YMID 
@2344 C4AS ED 4c a3 SBC YMIN 
@2345 C4As Be 29 BCS STORE1 SYMBOL TABLE 
@8346 C4AA EE 62 23 INC FLAG1 
@2347 C4AD AD 4C @3 LDA YMIN SYMBOL VALUE 
Q@2348 C4BQ ED 4F e3 SBC YMID CONT CSSD COUNT @248 DELTAX @35A DELTAY @35E 
@2349 C4B3 8D 5B @3 STORE1 STA DLTAY1 DIVIDE C25 DLTAX1 356 DLTAX2 e358 DLTAX3 9359 
@@35@ C4B6 38 SEC DLTAY1 358 DLTAY2 9@35C DLTAYS 35D DONE C43B 
@@351 C4B7 AD 52 @3 LDA YMAX DRAW C424 DVDND QQFD DVSOR QQFB EDGES B64 
@2352 C4BA ED 4F @3 SBC YMID ENDFTS C43C ERASE1 C33A ERASE2 C3B7 ERROR @345 
@@353 C4BD Ba a9 BCS STORE2 FACET C4E1 FCETLP C4FB FINDXY  C44F FINI CSCF 
@@354 C4BF EE 61 Q@3 INC FLAG2 FINISH CSE9 FLAG @363 FLAG1 234a FLAG2 Q361 
@@3SS C4C2 AD 4F QZ LDA YMID FLAGS @362 LINE C2DB LNLF t C32F LNLF2 C3AC 
@@354 C4CS ED 52 Q3 SEC YMAX LOOP 1 C288 LOoF2 c29C MLFCND ®@@AC MLFLER Q@@AD 
@@357 C4C8 sD SC O3 STORE2 STA DLTAY2 MODE Q347 MULT CQ11 NEGSLP C468 NEXTX1  CSS2 
@@358 C4CB 32a SEC NEXTX2 CSC4 NGSLP C3D1 NOINC1 C357 NOINC2 CZ3C2 
@@359 C4CC AD 52 @3 LDA YMAX NORM C224 NOSCAL 0347 NOSWF1 C2C2 NSLOFE (C2347 
@@368 C4CF ED 4C @3 SBC YMIN ORIGIN C2é6F OQUTLN C2EB PLOT C143 PROD QQAE 
@@361 C4D2 Be ag BCS STORES QuOT @QFD RAM Q34A SCALE C26F SCLP C275 
@@362 C4D4 EE é2 @3 INC FLAGS SKi Crs SK2 C34A SK3 C349 SKIF2 C46E 
@@363 C4D7 AD 4C @3 LDA YMIN SKIPS C55A SKIP4 cscc SKP 1 C3BA SKF2 CZD4 
@@364 C4DA ED 52 Q3 SBC YMAX SKP3 C3E7 SORTED CZ2DA SORTLP C2BQ SORT X C2AE 
@@365 C4DD &D SD az STORES STA DLTAY3 STEPX c382 STEPY C3@E STORE!  C4B3 STORE2 C4cea 
@@366 C4EQ 40 : RTS STORES C4DD SWAF 12 286 SWAP23 C29A TEST C407 
@@347 C4E1 ; 
@@368 C4Ei1 5 FE HEHE HE TE IE He HE IE TE IE HE aE HE HE He HE HE HE HE HEE HE EE 9 HE HE SYMBOL TABLE 
@@369 C4E1 ; 
@@372 C4e1 3 DRAW A SHADED TRIANGULAR FACET SYMBOL VALUE 
@@371 C4e1 ; UNPLOT C146 VLINE c4ap XDIFF O35F XMAX 2350 
@@372 C4E1 2@ AE C2 FACET JSR SORTX XMID @34D XMIN Q34A XPLT Q33F YBASE @355 
@@373 C4E4 AD 47 @3 LDA NOSCAL YBOT Q354 YMAX @352 YMID Q34F YMIN @34C 
Q@Q374 C4E7 Fe e3 BEQ YSOK YPLT Q341 YSOK C4EC YTOP Q353 
@@375 C4E9 28 6F C2 JSR SCALE 
@8376 C4EC 20 46F C4 YSOK JSR FINDXY END OF ASSEMBLY E a as 
Q@0377 C4EF AD 4A @3 LDA XMIN 
@@378 C4F2 &D 3F a3 STA XPLT nd Listing Three 
@2379 C4FS AD 4B @3 LDA XMIN+1 s 
@@38@ C4FS BD 40 a3 STA XPLT+1 
ease cars 50 FoeTLP sec Listing Four 
@@382 C4FC AD 3F @3 LDA XPLT 
eases caus Ba se Pe ce Seiea — pa 3; PRIMITIVE SOLID SHAPE DRAWING 
5 ; 

tae cane os o = ste ar — — 3; RICHARD L. RYLANDER 11/7/84 

Ss , 
agsue - hae Ane ee fax aint eee25 2000 ; LOAD ARITHMETIC AND GRAPHIC UTILITIES FIRST 
@@389 CSi@ sD SE @3 STA DELTAY ae ae ; 
@2@392@ CSi3 AD 68 @3 LDA F ‘ @82207 2220 5 RRR RHKK EH RRAM EHH EHH EHH HA HHH RAR HRA HHREEE 

3 LAGI e2e28s eaaa RAM=4036A 
@Q@391 CS1ié 8D 63 @3 STA FLAG gee29 gece GRIni Hae seA 
@@392 C519 AD 4c a3 LDA YMIN 
@@393 CSiC @eD 55 a3 STA YBASE eS ee 3 
@@394 CSIF 29 3c C4 3 @@211 aa20 MLPCND=#AC 3; MULTIPLICAND (S) 
= SR ENDFTS @@212 e@a0a MLPLER=£AD 3; MULTIPLIER (S) 
@2395 CS22 ep 53 @3 STA YTOF 28213 2200 PROD=3AE Sigs 
@2396 C525 AD 59 a3 LDA DLTAX3 = Bip ok sapere oh 
@@397 CS2B FO tS SEQ caNT @2214 e200 MULT=$CQ11 3; CALL FOR MULTIPLY 
@2398 CS2A aD Sa @3 STA DELTAX pre ine ms ; 
@2399 CS2D AD SD Qz Ppa tetas 20216 e200 DVDND=#FD 3; DIVIDEND (D) 
@2400 CS3@ sD SE a3 STA DELTAY . 
(Continued on page 70) 
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ENVOY™ 


Communications Software 


@ Easy to use, menu driven, compact and high speed 

®@ Access electronic mail, remote systems and data networks like 
CompuServe, The Source and Dow Jones News Retrieval 

@ Terminal mode with large data-capture buffer 

@ Error-free transfers of text and binary files 

@ XMODEM (Christensen) and ANSI X3.28 transfer protocols 

@ User-definable Autodial and Autologin menu 

® Utilities menu for file copy, type, print, erase and rename 

@ Remote unattended file transfers and utilities 

@ Available for most popular computer systems: IBM PC, PCjr, 
PC compatibles, Sanyo MBC-55X, MSDOS, CP/M-86, 
Concurrent CP/M, CP/M 2.2, CP/M Plus and more 

@ Money-back guarantee if not completely satisfied 


$4995 


ARTISOFTinc 


P.O. Box 41436 
Tucson, AZ 85717 
(602) 327-4305 





onix 


NOW ONLY $79.95! 


lf you think you're missing out on innovative software 
developments because nobody is writing for CP/M'™-80, take 
a look at us. We've adapted UNIX™ features to CP/M like 
never before, and with the kind of professional, quality- 
controlled product that you deserve. That product is none 
other than the critically acclaimed ConlX Operating System. 


ConlX can provide any 48K+ CP/M-80 or compatible system 
with I/O Redirection and ripe (uses bag oe or disk), 
perfected User Areas, Command and Overlay Path Searching. 
Auto Screen Paging. 8Mb Print Pallenne. 22 new SysCalls, 
Function Keys, ‘Virtual’’ disk system, Archiver (saves over 
50% disk), extensive command an eUaRe- 300+ variables, 100+ 
commands, pull-down menu, and much more! Uses as little as 
1/2K RAM! Runs with CP/M for true data and software 


compatibility. Installs easily without any system mods! 


The ConlX package lists at $165 and has been advertised and 
sold internationally to many enthusiastic customers since 
October 1983. As a special limited offer, we've lowered the 
pe of the complete ConIX system by 50% to a $79.95! 

on't miss this opportunity to bring your 8-bit micro back into 
the software revolution. Order your copy of ConlX today! 


































Price includes manual, 8" disk, and user support. 544’ conversions 
available. Contact your local dealer, or buy direct and add shipping: 
$4.50 UPS, $10 Canada, $25 overseas. NY residents add sales tax. 


Computer Helper Industries Inc. 

P.O. Box 680 Parkchester Station, NY 10462 

Tel. (212) 652-1786 (for information/orders) 
‘We're helping your computer work better for you!" 


UNIX: AT&T Bell Labs, CP/M: Digital Research, ConIX: Computer Helper Ind. 


Circle no. 7 on reader service card. Circle no. 22 on reader service card. 
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en it rains; controls the thermostat for optimum comfort; _ 
ippliances, lights, security system, and weather monitoring _ 
Jging temperature, wind speed and direction, and graphing © 
itent of the atmosphere.) Solenoids, microswitches, pneu- 


-__ 1CB-10 CONTROLLER BOARD Js, Microswitch | 
oe s, pH sensors, and other devices are used in this system. 


$219, assembled and tested. 





MULLEN COMPUTER PRODUCTS, INC. | 










AVAILABLE: , 

Priority One Electronics, , 
s = —— Chatworth, CA e (21 3) 709-51 1 1 

oe, Jade Computer Products 
TB-4a EXTENDER BOARD ZB-1 ZIF EXTENDER BOARD Hawthorne, CA © (213) 973-7707 


_ The latest in our TB line, the most This debugger features Zero Inser- 
__ widely used add-ons inthe indus- tion Force edge connectors for 
_ try. Features logic probe, formed- easy board changes and long life. 


E71 Computer Products | 
Hayward, CA e (415) 786-92 


_ lead edge connectors, pulse Expect 2,000 or more insertions — ee cae a 
| catcher switch and reset button. _ rather than the usual 300 to 400 (415) 79-2066 or write MCPI, 2260 American Ave., 


with tension type connectors. Hayward, CA 94545. OEM sales available from factory. = 
$89, assembled and tested. $159, assembled and tested. pices eee oe 


Circle no. 54 on reader service card. 


Dr, a wing on f he C-64 (Listing Continued, text begins on page 50) 
Listing Four 


REM CALCULATE 2*Z FROM X,Y AMD RADIUS 
HEMI = 1 
IF XRELSCLIFL THEN GOTO ‘RHEMI’ 


@@144 Ccéz8 
@0145 cé28s8 


7 @2a DVSOR=#FB ; DIVISOR (D) @@146& Cé28 ; ZWX=2*7Z-XSHD 2 A 
enbae Geen QUOT=#FD : QUOTIENT (D) 00147 Cé628 ene XFPLY=XCENT-XREL REM LEFT HEMT SPHERE 
22219 28802 DIVIDE=4#C@25 3; CALL FOR DIVIDE @@146 Cé28 3; ‘CHCLUF’ IF YREL:CLIFU THEN GOTO ‘DHEt1 
Q@2028 280020 3 Q@0149 CézB 3 TONE=ZWX+YSHD : 

@0221 08000 ARG=#£AC 3; ARGUMENT (S) Q@@i15@ CézE ; GOSUB ‘GETVAL’:REM NORMALIZE SHADE VAL 
Q@2822 28200 SOQR=#AE 3 SQUARE OF ARG (D) @8151 C428 ; YPL T=YCENT + YREL i 
@2023 200 SQUARE=$#CQ04 ; CALL FOR SQUARE @@152 céze ; GOSUB ‘PLTSHD’:REM PLOT OR UNFL OT 
22224 e200 ; @@153 C428 : REM POINTS WEIGHTED BY SHADE VAL UE 
82025 2200 RADCND=#AC 3 RADICAND (D) 0154 Ccéze > ‘DHEMI’ IF YREL>CLIPD THEN GOTO ‘RHEMI 
@2A226 2002 ROOT=$833C 3 SQUARE ROOT (S) @@155 Cc427e8 ; TONE =ZWX-YSHD 
@8827 2020 SOQRT=#CQ44 3 CALL FOR SQRT @8i56 Céz8s : GOSUB ‘GETVAL’ 
Q@2028 8202 3 @@15S7 Cé28 3 YPLT=YCENT-YREL 
22829 8200 RNDM=#COOO 3 FANDOM NUMBER @@158 C428 ; GOSUE ‘’PLTSHD’ 
2222Q 8200 RANDOM=8sCQ@CB 3; CALL FOR RANDOM @@159 Cé78 3 “"RHEMI’ IF HENI=@ THEN RETURN 
G@B83i AB00 3; NOTE —- A CALL TO ‘RANDOM’ LEAVES A RANDOM BYTE @Q@168 Cé28 3 HEMI=0 
@2A252 2208 3 IN THE ACCUMULATOR 00141 C4678 ; IF XRELSCLIFR THEN RETURN 
@Q2233 B000 3 @@162 Cé28 ; 2WX=2*Z+XSHD 
G2834 8000 XPLT=4£033F @@i43 Cé&78e : XPLT=XCENT+ XREL 
@2835 2000 YPLT=$0341 @@144 C428 3 GOSUB ‘CHCLUP’ 
22836 8200 NORM=#C22 @8165 Cé&28 ; RETURN 
Q@2837 8202 PLTSHD=4#C20F @@1466 Céz8 ; 
Q8038 2200 VALUE=#0344 3 FINAL NORMALIZED SHADE VALUE @@147 C628 2C 83 Q3 PTFPLOT BIT HVFLAG 
G@Q28@39 22000 HTORRN=£0346 3; SHADE FLAG, 1=HALFTONE @@168 Cé&2B 18 2D BPL NOROT 
22040 8000 NOSCAL=#2347 3; SCALE FLAG, 1=NO SCALE @2169 C&2D AD &6C az LDA XREL. 
20041 2220 5 : @017@ C630 48 FHA 
@20@42 2200 *=RAM Q@B171 C&31i 48 PHA 
@2243 O36A XCENT #=%+2 3; CENTER COORD @@172 C632 AD 70 @3 LDA YREL 
@0@@44 @36C XREL x=e+1 ; RELATIVE (TO CENTER) @0173 C4&3S sD &6C @3 STA XREL 
22045 36D XSHD H=H+2 3; USED IN SHADE CALC 20174 C638 68 PLA 
@224& OB36F YCENT #*=%+1 3; CENTER COORD @@175 Céz9 SBD 72 az STA YREL 
@2047 2370 YREL-#=H+1 $s RELATIVE (TO CENTER) @@176 C43C AD 4D a3 LDA XSHD 
@246 371 YSHD eae+2 3 USED IN SHADE CALC @@177 C4&3F 48 PHA 
@2049 8373 ZREL *#=e+2 3; RELATIVE (TO CENTER) @@178 Cé64ea 48 FHA 
@2052 2375 ZWX #=K+2 3 Z WITH X (+ OR -) @@179 C441 AD 71 23 LDA YSHD 
Q0@51 0377 ; @@ie@ C644 SD 4D a3 STA XSHD 
2052 2377 RADIUS #=*+2 3; LOCAL RADIUS OF SURFACE @@181 C447 4B FLA 
Q@@53 2379 TONE #«="+2 3 USED IN SHADE CALC @@182 Cé48 BD 71 @3 STA YSHD 
@8054 0378 TNIMP #=#+2 3; USED IN SHADE CALC @@183 C64B AD &6E @3 LDA XSHD+1 
@2@@55S 08370 ; @@184% Cé&4E 48 PHA 
Q@Q@O@S56 37D CLIFL #*=#+1 3; LEFT CLIFFING BOUND @018S Cé4F 48 FHA 
Q@@OS7 O37E CLIPR #*#=*41 3; RIGHT CLIFFING ROUND @@18& C&5@ AD 72 23 LDA YSHD+1 
Q@@0S8 O37F CLIFU 4x41 3; UP CLIPPING BOUND @@187 CéS3 8D &E O53 STA XSHD+1 
22059 082380 CLIFD wee] 3; DOWN CLIPFING BOUND @@18S CéS5& 68 FLA 
22040 381 ; @0189 Cé&57 8D 72 O3 STA YSHD+1 
BO041 @381 HEMI eau tl 3 FLOTTING HEMISPHERE @@19@ CéS5A 20 45 C7 NOROT JSR GETZ 
@@@62 08282 3 @@191 Cé45D AP Ol PTPLT2 LDA ##@1 
Q@2043 382 LAFL IT wowel 3: BACKLIT FIG @@192 Cé&5F 8D B81 @2 STA HEMI 
Q8@64 O382 HVFLAG ®=«+1 3 HORTZONTAL “VERTICAL FLAG Q@@193 Cé&462 38 SEC 
@2@65 9584 TEMP -#=#42 5 TEMPORARY STORAGE =, @8194 C663 AD 7D @3 LDA CLIPL 3; CHECK LEFT HEMISPHERE 
820664 0386 CNTX eee41 ; LOOF COUNTER @2195 C&6& CD 6C @z CMP XREL 
20067 0387 CNTY *=ne4 : LOOF COUNTER @@196 C469 92 7D BCC RHEMI 
22868 asas Max Rand 3; OOF Limi @2197 Cé6B 38 SEC 
@@069 0389 ; @@198 C&6C AD 3C BB LDA ROOT 
82070 2389 HL.EN HK t 3 HALF LENGTH OF CYLINDERS @0199 C&é6F ED &D Qs SBC XSHD 
@4071 828A KS #=KH42 ; SOUBRE OF TOROID RADIUS @@2@@ Cé&72 SBD 75 as STA ZWX 
@8@@72 O38C RI eae td 3: TOROID (RING) RADIUS @@201 C475 AD 3D a3 LDA ROOT+1 
G0073 38D Re eae) ; CENTER RADIUS OF TOROTD 22202 C678 ED 6E @2 SBC XSHD+1 
Q@0074 O38E RO Reet 1 s QUIER RADIUG OF TOROID @@203 Cé467B &D 76 a3 STA ZWX+1 
Q@@0@75 Oter RI H=H4+1 3; INNER RADIUS OF TOROID @0204 C&7E 38 SEC 
Q@0876 8299 XSOR  #=*+2 @02@5 Cé7F AD 6A O23 LDA XCENT 
@0077 392 XMAX Haat] @@20@&6 Cés82 ED &6C 83 SBC XREL 
@0078 839% 3 @0207 Cé8S 8D SF @3 STA XFLT 
@@079 2392 RO=HLEN @@208 Cése AD 4B 3 LDA XCENT+1 
0080 39% ; @8209 Cé8B EF 82 SBC #483 
@B861 8393 *=ORIGIN @@21@ C48D 8D 42 a3 STA XPLT+1 
@eae882 CSEA 5 FEET EE TEER A ARR RRM RO Q@211 C4699 : 
@8@083 CSEA $ @@212 C492 38 CHCLUP SEC 
@0084 CSEA ¢ DIVIDE WITH SINGLE PRECISION DIVISOR @@213 C491 AD 7F a3 LDA CLIFU 3; CHECK FOR UP CLIPPING 
@@@8S CSEA 3 (USED OFTEN IN SHAPE ROUTINES) @@2714 C4694 CD 78 a3 CMP YREL. 
@@084 CSEA 3 @8215 C&97 98 23 BCC DHEMI 
@2087 CSEA A? @ SDIV LDA #2 @@216 Cé&99 18 CLC 
@@e@see CSEC 85 FC STA DVSOR+1 @@217 C&9A AD 75 03 LDA ZWX 
@0089 CSEE 4C 25 CO JMP DIVIDE @@2168 Cé&9D &D 71 @3 ADC YSHD 
60890 C5SF1 3 @@219 Cé&AB SBD 79 B3 STA TONE 
Boeas1 CSFi ‘thee eee ee eee ee cee ee ee eee ee ee es @@22@ Cé&A3 AD 76 @2 LDA ZWX7+1 
@ea972 CSF ; @@221 CéAd 4D 72 23 ADC YSHD+1 
@2@093 CSF1 3 CALCULATE SHADE VALUE (@--63) BY @Q222 C6A9 8D 7A BS STA TONE +1 
@2094 CSF1 3; MULTIFLYING ‘TONE’ BY 26 THEN @@223 Cé4AC 20 Fi CS JSR GETVAL 
@0095 C5F1 ; DIVIDE RESULT BY RADIUS OF SURFACE @@224 César 18 cLe 
@@096 CSF I ; @@225 CéB@ AD 4F a3 LDA YCENT 
@@097 CSFi 2C 7A @3 GETVAL BIT TONE+1 @8226 Cé46B3 6D 72 a3 ADC YREL 
@8099 CSF& AD &2 @3 LDA BAFLIT ; MAKE VALUE @ OR ABS (TONED @2228 CéB9 720 oF C2 JSR PLTSHD 
@21@@ CSF9 De a4 BNE NEGATE 3 DEPENDING ON BAKL IT FLAG 20229 CéBC : 
Q@0101 CSFB 8D 44 @2 STA VALUE @023@ Cé&BC 38 DHEMI SEC 
@0102 CSFE 40 RTS @@231 Cé4BD AD so a3 LDA CLIFD ; CHECK FOR DOWN CLIPPING 
@8105 CSFF 3a NEGATE SEC @@232 CécC@ CD 72 a3 CMP YREL 
G0104 C608 AP GO LDA 8500 @@233 C6C3 90 23 BCC RHENI 
@2@1@5 Cé8@2 ED 79 O23 SBC TONE @@234 céCcs 38 SEC 
@@1@64 C495 8D 79 Q2 STA TONE @@235 Cé&C& AD 75 OS LDA ZWXx 
@@187 Cé98 AD 79 Q2 CNTNU LDA TONE @@234 CéC9 ED 71 a3 SBC YSHD 
@2128 Cé@B S AC STA MLFCND @0237 C4CC 8D 79 oz STA TONE 
@0189 Cé@D AP 1A LDA ##1A @0238 CéCF AD 746 @3 LDA Z2WXx+1 
Q@@11@ Cé@F 85 AD STA MLFLER @8239 C4D2 ED 72 3 SBC YSHD+1 
@@111 Cé11 28 11 CB JSR MULT @0@248 Cé&DS sD 7A 3 STA TONE+1 
@@1i2 C614 85 FE STA DVDND+1 @0241 Cé4D8 20 Fi cS JSR GETVAL 
@@113 Cé1é6 AS AE LDA FROD @@242 C4&DB 38 SEC 
02114 Cé18 85 FD STA DVDND @@243 Cé&DC AD 6F OS LDA YCENT 
@@115 Cé6é1iA AD 77 @3 LDA RADIUS @@244 C&DF ED 72 @3 SBC YREL 
@@116 Cé&iD 85 FB STA DVSOR @024S CéE2 SD 41 O35 STA YFPLT 
Q@@117 CéiF 22 EA CS JSR SDIV @@246 CéES 28 OF C2 JSR PLTSHD 
@@118 Cé&22 AS FD LDA QUOT @@247 CéEBs : 
@@119 C4&24 8D 44 Q@2 STA VALUE @@248 CéEB AD Bi BS RHEMI LDA HEMI 
@@12@ Cé27 68 RTS @0249 CéEB FQ 34 BEG PLDONE 
@Bi2z1 Céze 5 @@25@ CéED CE 81 as DEC HEMI 
@@i122 C4278 5 ME EE IE IE HET HE HE IE HE HE TE 2 TE HE TE IE EH 0 9 9 HE 0 Ee 9 2 @0251 C4FO 38 SEC 
@@123 Cé28s8 3 @@252 CéFi AD 7E @3 LDA CLIPR 3 CHECK FOR RIGHT CLIPPING 
@@124 Cé2e 3 POINT PLOTTING BY QUADRANTS USING @@253 Cé&F4 CD é6C a3 CMP XREl. 
Q@@125 cé28s 3 THE FOUR-FOLD SYMMETRY OF SIMFLE OBJECTS @2254 Cé&F7 92 228 BCC FLDONE 
@8126 Cé28 ; @@255 CéF9 i8 cic 
@@127 Céze 3 DEPENDING ON STATUS OF ‘HVFLAG’, EXCHANGE @@256 CéFA AD 3C @3 LDA ROOT 
@@128 Cé28 3 X AND Y COORDINATES TO ROTATE OFJECTS 9@ DEG @0257 Cé4FD 4D 6D @3 ADC XSHD 
@@129 Cé28 3 SINGLE SHAFE ROUTINE CAN THEN BF USED TO @0258 C7@8 8D 75 a2 STA Zwx 
@@i3@ CézEe 3; DRAW ‘HORIZONTAL’ GR ‘VERTICAL’ VERSIONS @8259 C783 AD 3D as LDA ROOT+1 
@@1i3i cér7e 3; OF AN OBJECT @@268 C7@6 6D &E @2 ADC XSHD+1 
@@152 Cé2e ; @@261 C789 SD 76 a3 STA ZWX+1 
@@133 Cé28 3; THE FOLOWING IS A ‘BASIC SUBROUTINE’ @@262 c7ec 18 cle 
@6154 Cé28 3; EQUIVALENT TO EXFLAIN ITS UFERATION @@263 C7@D AD 6A a3 LDA XCENT 
G@135 C428 ; @0264 C71@ 4D éC at ADC XREL 
@2i36 C428 ; NOTE THAT LABELS ARE USED IN FLACE OF @0265 C713 8D 3F az STA XFPLT 
@0137 Cé28 ; LINE NUMBERS @@266 C716 AD 6B 23 LDA XCENT+1 
@@138 Cé2s ; @8@247 C719 69 2 ADC #320 
@0139 Céz78s ; ‘PTPLOT’ IF HVFLAG<@ THEN GOIO ‘NOROT’ @02468 C71B 8D 4@ az STA XPLT+1 
@0148@ cé7e $ (STACK) =XREL: XREL=YRCL: YREL= (STACK) @@269 C71E 4C 92 Cé JMP CHCLUP 
@@141 a3 3 s (STACK ) =XSHD: XSHD=YSHD: YSHD= (STACK) 02270 C721 2C 83 @2 PLDONE BIT HVFLAG 
O@142 CézE 3 NOROT’ GOSUB ‘GETZ’ @0271 C724 1@1€ BFL. NORSTR 
@2143 Ce2e ; 
; 
; 


(Continued on page 72) 


Dr. Dobb's Journal, May 1985 








MODEL 100 C COMPILER 


Now you can write efficient programs for your 
TRS-80 model 100 with ease. Or, learn the 
essentials of C programming while traveling! 


C/100 - THE “PORTABLE” C COMPILER 
Cassette version $49.00 
Disk/Video interface version $59.00 
Model II version (run on mod II, then 
download object code to mode! 100) $79.00 
Model III version (as above for Mod III) . $79.00 


Write or call for information on other 
TRS-80 software 


MODELS Il, 12, 16 
MODELS Ill, 4 


TRS/C C COMPILER 

Full K&R with source to the 
function library. UNIX 
COMpalbie sine. 


ZSPF EDITOR 

SPF, the choice of most 
mainframe programmers, is 
now available for Z80 machines. 
And it’s panel driven so you 
can customize it! 


business utility software 


109 minna ste 423 san francisco ca 34105 


(415) 397-2000 


C hon the Model 20 


and 


on CP/M 


available soon 


SPF 





Circle no. 8 on reader service card. 


GRAFMATIC™ 
PLOTMATIC™ 
for 
FORTRAN/PASCAL 
PROGRAMMERS 


The GRAFMATIC (screen graph- 
ics) and companion PLOTMATIC 
(pen plotter) libraries of modular sci- 
entific/engineering graphics rou- 
tines let you easily create 2D and 3D 
plots in customized: or default for- 
mats. Pen plot preview with GRAF- 
MATIC. Plot -interactively or in 
deferred mode. Primitives (mode, 
color, cursor, character, pixel, line, 
paint...) plus auto-scaling, auto- 
axis generation, auto-tic mark label- 
ing, function plots, tabular plots, 
error bars, auto-function plots (com- 
plete plot in default format with one 
easy call), auto-tabular plots, log/ 
parametric/contour plots, 3D rota- 
tion/scaling/translation, wire frame 
model (for old time’s sake), hidden 
line removal for solid models 
(GRAFMATIC only), cubic and bicu- 
bic spline interpolants, least squares 
fits, bar and pie charts, screen 
dump.... You name it. We have it! 
Best of all, the clearest and most 
complete documentation to be found 
in microcomputerland. User sup- 
port? Of course, call us! We offer a no 
questions asked money-back 
guarantee. 


SCREEN and 
PEN PLOTTER 
Software 
Libraries 
for the 
IBM PC 
Tandy 2000 
Tl Professional 





MICROCOMPATIBLES 


301 Prelude Dr. 
Silver Spring, MD 20901 
(301) 593-0683 


GRAFMATIC” $135 
PLOTMATIC*t $135 
BOTH $240 
OMNIPLOT [S] $135 
OMNIPLOT [P]t $135 
BOTH $240 


*Specify Compiler (Mfg. and Ver- 
sion): |BM/MS/IBM Prof. FORTRAN 
tSpecify Plotter: HP/HI/IBM 


Circle no. 84 on reader service card. 


SCIENTIFIC/ENGINEERING PC GRAPHICS TOOLS 


OMNIPLOT [S] 
OMNIPLOT [P] 
NO 
Programming 
Required 


Integrated stand-alone graphics li- 
braries to drive your CRT monitor or 
your pen plotter. Key in data in re- 
sponse to menu prompts or read 
your data from a disk file. Choose 
from an assortment of graphics for- 
mats: tabular, line, bar or pie 
charts. Contour plots. (YES! Just 
part of our integrated OMNIPLOT li- 
brary, not an expensive individual 
item). Create 3-D plots with a choice 
of wire frame or hidden surface 
removal for added realism. Choose 
standard, semi-log or log-log 
scales; gridding; error bars; line col- 
ors and types; marker symbol colors 
and types. Cubic spline interpola- 
tions and least squares fitting op- 
tions. As with our other professional 
packages we offer clear and careful 
documentation filled with examples, 
user support, and a no-questions 
asked money-back guarantee. 

Ask for OMNIPLOT [S] for screen 
graphics and OMNIPLOT [P] for the 
pen plotter software library. 


Circle no. 57 on reader service card. 
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Dr a wing on f h e C-64 (Listing Continued, text begins on page 50) 
Listing Four 


@2272 C726 AD 6E @3 LDA XSHD+1 3; RESTORE COORDS @0401 CSSD sd é6C O32 STA XREL 

@2273 C729 8D 72 O% STA YSHD+1 @2402 C81@ sD 6D 23 STA XSHD 

@8274 cC72C 68 FLA _,| 90403 C813 22 04 ca JSR SQUARE 

Q@0275 C72D sD 6E a3 STA XSHD+1 02404 Ccs8ié 38 SEC 

@@27& C73@ AD 4D @3 LDA XSHD Q@2405 C817 AD 84 23 LDA TENF 

Q@0277 C733 8D 71 @3 STA YSHD @2406 CB1A ES AE SBC SOR 

@8278 C736 68 FLA @24@7 CS8ic 85 AC STA RADCND 

@02279 C737 8D 4D Os STA XSHD 02408 CB81iE AD 85 @3 LDA TEMF +1 

@2282@ C73A AD 6C Q3 LDA XREL @@409 C821 ES AF SBC SOR+1 

@0281 C73D 8D 728 @3 STA YREL 00410 C823 85 AD STA RARCND+1 

@2282 C748 48 FLA 00411 C825 22 464 Ca JSR SORT 

@0@283 C741 8D 6C @3 STA XREL @6412 C828 AD 3C 23 LDA ROOT 

@0284 C744 6 NORSTR RTS Q@0413 C82B 8D 88 @3 STA MAX 

@8285 C745 3 Q@@414 C82E AD 87 @3 LOOPY LDA CNTY 

@828& C745 5 FE HEE Ee Ee Ee I I I IE IE SE IE IE IE FE IE FE JE IE FEE EE HE EE IE EE EE HE HE EE HE @0415 C831 8D 70 @3 STA YREL 

@@287 C745 ; @2416 C834 BD 71 @3 STA YSHD 

@0288 C745 3 CALCULATE Z FROM LOCAL X,Y BY 02417 C837 AD 2O LDA #@ 

@@289 C745 3 PYTHAGOREAN SUM 02418 C839 8D 83 @3 STA HVFLAG 

@0298 C745 ; 00419 Cs8sc 28 28 Cé JSR PTPLOT 

@8291 C745 AD 77 @3 GETZ LDA RADIUS 02420 C83F Ago Ba LDA ##82 

@8292 C748 85 AC STA ARG 02421 C841 8D 83 83 STA HVFLAG 

@0293 C74A 28 04 CB JSR SQUARE @0422 C844 28 28 Cé JSR PTFLOT 

20294 C74D 8D 7C v3 STA TNTMP+1 00423 C847 AD 87 @3 LDA CNTY 

@@295 C75@ AS AE LDA SOR 02424 C84A CD 88 @3 CMP MAX 

@029464 C752 8D 7B @3 STA TNIMP @@425 C84D FO @6 BEQ DONEY 

@8297 C755 AD 4D @3 LDA XSHD @2426 C84F EE 87 23 INC CNTY 

@0298 C758 85 AC STA ARG @@427 cas2 4C 2E CB JMP LOOPY 

@@299 C75A 22 84 C2 JSR SQUARE 02428 C8SS AD 8é& Q3 DONEY LDA CNTX 

@222@ C75D 38 SEC @@429 C858 CD 92 @ CMP XMAX 

@@3@1 C75E AD 75 @3 LDA TNTMF @243@ C8SB FQ Oé& BEQ DONE 

@03@2 C761 ES AE SBC SOR @2@431 C85D EE 86 @3 INC CNTX 

@@303 C763 8D 7B Qs STA TNTMP @@432 CS86e@ 4C es cB JMP LOOFX 

@2324 C764 AD 7C 23 LDA TNTMP+1 @0@433 CBS3 42 DONE RTS 

@@3@5 C769 ES AF SBC SOR+1 02434 C844 3 

@8386 C7é6B 8D 7C OS STA TNTMP+1 20435 Cs8é4 59 FF TE EEE FEI IE IE JE IEE ETE FEIT HE 

@@327 C76E AD 71 @3 LDA YSHD @2436 CB8d4 ; 

Q@@3@8 C771 »e5 ac STA ARG @0437 CB6é&4 3; DRAW SHADED CYLINDERS 

22309 C773 728 04 Ca JSR SQUARE @@438 CBd4 3 

Q@0319 C776 38 SEC Q@2439 C8é&4 ; “BASIC SUBROUTINE’ EQUIVALENT 

@@311 C777 AD 7B Q3 LDA TNTMP @2440 CBeé4 3 

@0312 C77A ES AE SBC SOR @2441 CB&4 3 ‘CYLNDR’ XSHD=@ 

@0313 C77C 85 AC STA RADCND Q@@442 CB864 ; FOR YREL=RADIUS TO 

@2314 C77E AD 7C as LDA TNIMF+1 @2443 CBeéb4 ; YSHD=YREL 

@0315 C781 ES AF SHC SOR+1 @0444 C844 ; FOR XREL=HLEN TO @ 

@@316 C783 85 AD STA RADCND+1 @2445 CB8&4 ; GOSUB ‘PTPLOT’ 

@2317 C78S 30 BA BMI ZEROOT @2446 CBd4 ; NEXT XREL 

@@318 C787 28 64 ca JSR SORT @2447 C864 ; NEXT YREL 

08319 C78A @E 3C @3 ASL ROOT 22448 C844 ; RETURN 

@@322 C78D 2 3D @3 ROL ROOT+1 @2449 Ces4 ; 

@8321 C792 62 RTS 22452 C844 AD 2 CYLNDR LDA #@ 

@2322 C791 A? Be ZEROOT LDA #£00 @2451 C86& BD 4D O3 STA XSHD 

@@323 C793 8D 3C ax STA ROOT @@452 C849 8D é6E 23 STA XSHD+1 

@2324 C796 8D 3D as STA ROOT+1 @0453 CS846C 8D 72 23 STA YSHD+1 

Q@@325 C799 6 RTS @2454 C86F AD 77 @3 LDA RADIUS 

Q@@326 C79A ; @@455 C872 8D 72 a STA YREL 

@@327 C79A 599 FE FE FE FE Ee ETE IE IE I SE EEE JE JE HE HE IE EE EE HEI EH a @@454 C875 AD 89 @3 CYLOOP LDA HLEN 

@Q@328 C79A ; @0457 C878 sD &4C O3 STA XREL 

@2329 C79A 3; SET UP PARAMETERS FOR TOROIDS @2458 C87B AD 72 23 LDA YREL 

@8332 C79A : @2459 CS8S7E 8D 71 23 STA YSHD 

@@331 C79A 3; RT=(RO-RI)/2 RS=RT*#RT RC=RT+RI @246@ CSe8i 228 28 C4 CXLOOP JSR PTFLOT 

@@332 C79A 3 @2@4461 C884 CE é6C Qs DEC XREL 

@8333 C79A AD BE OS TFARM LDA RO 92462 CS8s7 128 F8 BFL CXLOOP 

@@334 C79D 38 SEC 20443 C889 CE 72 @3 DEC YREL 

@@335 C79E ED S&F Oz SBC RI @2464 Cesc 10 £7 BFL CYLOOP 

@2336 C7A1 4A LSR A @2465 CS8SE 42 RTS 

@2337 C7A2 8D BC OZ STA RT @2464 CB8B8F ; 

@@338 C7AS 8D 77 @ STA RADIUS 20447 C8s8F 5 9 HE IE IE IE I EE IIE SE I I FE IE EE HE IIE FETE EIT EE TE EE 

@2339 C7A8 18 CLC @2468 CS8eF ; 

@2348 C7A9 6D &F Os ADC RI Q@0449 CB8EeaF ; DRAW EDGE-VIEW TOROIDS 

@2341 C7AC 8D SBD @3 STA RC 2472 CssF ; 

Q@0242 C7AF AD &C Q3 LDA RT Q0471 CssF 3; ‘BASIC SUBROUTINE’ EQUIVALENT 

Q@0243 C7B2 85 AC STA ARG @2472 Ce8EerF ; 

-@0344 C7B4 28 24 Ca JSR SQUARE @2473 C88F 3; ‘EDGTOR’ GOSUB ‘TPARM’:REM SET UP RADII 

@2345 C7B7 AS AE LDA SOR 02474 CE8EaF ; FOR CNTX=@ TO RT 

@2344 C7B9 &D BA @3 STA RS @2475 C8erF ; XREL=CNTX: XSHD=CNTX 

Q@0347 C7FC AS AF LDA SOR+1 2474 CseF ; RO=SQR (RT*RT-CNTX*CNTX) 

@@348 C7BE 8D 8B @3 STA RS+1 @0477 cesar ; FOR CNTY=8 TO RO+RC 

@2349 C7C1 AD aa LDA #2 2478 cesar grins YREL=CNTY 

@@35@ C7C3 sD B& @3 STA CNTX @2479 CBBF 3 YSHD= (RO@*CNTY) / (RO+RC? 

Q@0351 C7C& 40 RTS 22482 CesF ; GOSUB ’PTPLOT’ 

@@352 C7C7 ; Q@2481 Ceer ; NEXT CNTY 

@@353 C7C7 ete eee cece eee ee ee eee ee ee ee eee eee eee eS Ts @2482 CcsEeF ; NEXT CNTX 

@@354 C7C7 ; @2483 CSeF ; RETURN 

Q@@355S C7C7 ; DRAW A SHADED SPHERE @2@484 CS8B8F ; 

@@35& C7C7 ; @0485 CS88F 28 9A C7 EDGTOR JSR TPARM 

@@357 C7C7 ; ‘BASIC SUBROUTINE’ EQUIVALENT @2486 C892 AZ 22 LDA #422 

@@358 C7C7 ; @@487 C894 BD &6E Qs STA XSHD+1 

@@359 C7C7 3; ‘SPHERE’ FOR CNTX=@ TO RADIUS/SQR(2) @@488 C897 8D 72 @3 STA YSHD+i 

@@360 C7C7 ; XREL=CNTX: XSHD=CNTX @2489 CB9A AD 86 O23 LOOPX4 LDA CNTX 

@@341 C7C7 ; FOR CNTY=CNTX TO SQR(RAD*RAD-CNTX*CNTX) 9@49@ C89D ed é6C @3 STA XREL 

Q@8362 C7C7 3 YREL=CNTY: YSHD=CNTY @2491 CB8A@ BD 6D as STA XSHD 

@O363 C7C7 ; HVFLAG=@ @2492 CSAS 85 AC STA ARG 

@@364 C7C7 ; GOSUB ‘PTPLOT’ @2493 CBAS 20 04 ca JSR SQUARE 

@@365 C7C7 ; REM EXCHANGE X & Y TO USE 8-FOLD SYM 20494 csAs 38 SEC 

@2366 C7C7 ; HVFLAG=-128 @2495 CBAI AD BA @ LDA RS 

@2367 C7C7 ; 22496 CBAC ES AE SBC SOR 

@0368 C7C7 ; GOSUB ‘PTFLOT’ 20497 CBAE 85 AC STA RADCND 

@2369 C7C7 ; NEXT CNTY 02498 C8B@ AD &B az LDA RS+1 

20378 C7C7 : NEXT CNTX 2499 C8BS ES AF SBC SOR+1 

Q@0371 C7C7 : RETURN @@50@ C8BS 85 AD STA RADCND+1 

@Q@372 C7C7 : @0@501 C8B7 22 464 Ce JSR SORT 

@2373 C7C7 ; @@5@2 CBBA AD SC a3 LDA ROOT 

@8374 C7C7 AD 77 @3 SFHERE LDA ‘RADIUS Q@@503 C8BD 8D 89 @3 STA RO 

@2375 C7CA 85 AC STA ARG 90504 cece is Cue 

Q@2376 C7CC 28 04 Ca JSR SQUARE @@505 C8Ci 4D 8D a3 ADC RC 

@@277 C7CF 6 AE ASL SOR @2506 CS8SC4 sD es az STA MAX 

@0378 C7Di 26 AF ROL SOR+1 : @2507 C8c7 A? oo LDA #4200 

@09379 C7D3 AS AE LDA SOR @@50@8 C8C9 8D &7 a STA CNTY 

@@38@ C7DS es AC STA RADCND @@509 CSCC AD 87 23 LOOPY4 LDA CNTY 

@@381 C7D7 AS AF LDA SOR+1 @@51@ CSCF 8D 72 @3 STA YREL 

@@382 C7D9 85 AD STA RADCND+1 ' @@511 Cep2 ess AD STA MLFLER 

@@383 C7DB 28 64 Ca JSR SORT @@512 C8D4 AD 89 a3 LDA RO 

@@384 C7DE 4E 3D @3 LSR ROOT+1 @@S5i3 CS8D7 85 AC STA MLFCND 

@@38S C7E1 4E SC Os ROR ROOT @@514 CS8D9 22 11 ce JSR MULT 

@@384 C7E4 AD 3C a3 LDA ROOT @@5i5 cCeDC 85 FE STA DVDND+1i 

@2387 C7E7 8D 92 O3 STA XMAX @@516 CB8DE AS AE LDA PROD 

@@388 C7EA AS ao LDA #209 @@517 CS8E@ 85 FD STA DVDND 

@@389 C7EC 8D 84 a2 STA CNTX 8518 CSE2 AD 88 83 LDA MAX 

@2392 C7VEF 8D 6E Q2 STA XSHD+1 @@519 C8ES 85 FB STA DVSOR 

@0391 C7F2 8D 72 23 STA YSHD+1 @@52@ CS8E7 2@ EA C5 JSR SDIV 

@8392 C7FS AD 77 @3 LDA RADIUS @@S521 CSEA AS FD LDA QUOT 

@0393 C7FS 85 AC STA ARG @@522 CS8EC 8D 71 23 STA YSHD 

@0394 C7FA 22 24 ce JSR SQUARE @@5235 CSEF 28 28 C4 JSR PTPLOT 

@2395 C7FD 8D 85 @3 STA TEMP+1 @0524 C8F2 AD 87 23 LDA CNTY 

@2396 CB@2 AS AE LDA SQR 92525 CS8SFS CD 8s @3 CMP MAX 

®@397 C8@2 Sad 84 Os STA TEMP @@526 C8FB FQ Bs BE@ DONE4 

02398 CB8@5 AD 84 @3 LOOPX LDA CNTX @@S527 CS8FA EE 87 O53 INC CNTY 

@2399 C88S sD 87 a3 STA CNTY 

@@4@0 cea@B eS AC STA ARG (Continued on page 74) 
, 
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A PLOTTER EMULATION PROGRAM 
THAT CREATES GRAPHICS ON YOURL— 
DOT MATRIX PRINTER. FEATURES: 


* POWERFUL HP-GLTt™ SYNTAX FOUND 
ON HEWLETT-PACKARD PLOTTERS. 

* FAST! CREATES & PRINTS A TYPICAL 
GRAPH IN LESS THAN 4 MINUTES. 

* IMAGES STORED IN MINIMUM SPACE 
ON DISK, AND MAY BE OVERLAID. 

* LABELS ANY SIZE, saw or 
VOITOAAIQC. 

* SCALING, LINETYPES, WINDOWS, 
TICKS, AND SYMBOL MODE. 

* PLOT SIZES 11"x14" TO 4"x48"! 

* INCLUDES MANUAL AND USEFUL 
EXAMPLE PROGRAMS. 

K REQUIRES 54k CP/M 2.2 AND AN 
OKIDATA, EPSON, GEMINI, OR 
PROWRITER PRINTER. 


€49,9D ppp. on RES ADD 5% TAX 


re SELLA SY OL SK FORT? /, JU LMI EPP SPTOLGE Lo > 





We specialize in high tech advertising, product 
packaging design, technical and whimsical 
illustration, marketing brochures, software & 
hardware manuals, logos, fliers, posters. 


Contact us now and let us show you how we can 
improve your graphic communication. 
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In the heart of Silicon Valley 


ORDINATE SOLUTIONS M’GUINNESS DESIGN 
P.O. BOX 308, OBERLIN, OH 44074 (415) 967-3811 
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MATE CONCERNING OTHER PRINTERS, OF '5. f 1122 Golden Way, Los Altos, CA 94022 
Circle no. 59 on reader service card. Circle no. 24 on reader service card. 


“Little Board” 
ss 


6 Models from °425* 


3340 
5” Floppy/Winchester 
4 Cards $387* 


Mir hest 8” FI iB Wi hest 
5” Floppy/Winchester ” Floppy/5” Winchester 
10 Cards $565* rCdrds $4 $494* 


De Ee (1 piece’) 
MODEL 2800 
Includes power supply & fan 


(Disk Drives and Little Board not included) 
AMPRO & Little Board are TM AMPRO computers. 





acan FROM 
fri MAIN/FRAMES & DISC ENCLOSURES $4 00 


LASER 3000 DISC/COVERS (not shown) *41 piece; prices lower in quantity. 


oa oe $400" 2 ea. 5” ape $199* ——I\ IEG ‘4 % a %| x | ® 


RESEARCH CORPORATION 
(Disk drives not included) 8620 Roosevelt Ave./Visalia, CA 93291 209/651-1203 


oe ere cD 


RESEARCH CORPORATION 
8620 Roosevelt Ave./Visalia, CA 93294 
209/651-4203 
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Circle no. 15 on reader service card. 





Dr. a wing on th e C: -64 (Listing Continued, text begins on page 50) 
Listing Four | 


@@528 CSFD 4C cc cB IMP LOOPY4 @@657 CSFB AD 89 @3 LDA R@ 
@2529 C9@Q AD BS B3 DONE4 LDA CNTX @@658 C9FB 85 FB STA DVSOR 
@@53@ C983 CD BC a3 CMP RT @26459 C9FD 20 EA CS JSR SDIV 
@0531 C906 FO BEQ DONEHT @064@ CAze 38 SEC 
@@532 C928 EE B& B3 INC CNTX @@641 CAG@i AD 87 @3 LDA CNTY 
@0533 C92B 4C 9A CB JMP LOOPX4 @@462 CA@4 ES FD SBC QUOT 
@@534 C9BE 4a DONEHT RTS @@663 CAG@& BD 71 B33 STA YSHD 
@@535 C9OF ; @2664 CABP AD 2B LDA ##20 
@O536 CIOF 59 HE FE EE EE ee a aE EE FE J SE EE EE EE EE 9 FE IEE IEE IE HE Ha ae @@465 CA@B 8D 83 83 STA HVFLAG 
@2537 C9OQF ; @0646 CAGE ES FE SBC QUOT+1 
@@538 CIF 3; DRAW A SHADED, TOP-VIEW TOROID @2647 CAI@ sD 72 a3 STA YSHD+1 
@2539 CIF ; @@6468 CAI3S 20 28 Cé JSR PTPLOT 
@@542 CaF ; ‘BASIC SUBROUTINE’ EQUIVALENT 22669 CAI& AP BO LDA #382 
@2541 C9OF 3 @@67@ CAIS 8D B3 a3 STA HVFLAG 
@@542 C9AF 3; ‘TOROID’ GOSUB ‘TPARM’ 224671 CAIB 2@ 28 Cé JSR PTPLOT 
@0543 C9OF 3 FOR CNTX=@ TO RO/SOR(2) @@672 CALE AD 87 @3 LDA CNTY 
22544 C9OF ; REM 8-FOLD SYMMETRY USED @@673 CAZ1 CD eB as CMP MAX 
22545 C9QF ; XREL=CNTX @@674 CA24 FO 2 BEQ DDNY1 
@2546 CIF 3 MAX=SQR (RO*RO-CNT X *CNTX) @2675 CA26 EE 87 23 INC CNTY 
@2547 C9OF ; IF CNTX>RI THEN GOTO ‘GRTR’ @2676 CA29 4C 9A C9 JMP LLPY1 
20548 C9aF ; CNTY=SQR (RI*RI-CNTY*CNTY) @2677 CA2ZC AD 86 @3 DDNY1 LDA CNTX 
@2549 C9OF ; GOTO ‘LLPY1‘ @@678 CA2F CD 92 @3 CMP XMAX 
@2552 C9OF 3; ‘GRTR'  CNTY=CNTX @2679 CAS2 FQ BEQ DUNTOR 
@@551 C9OF 3; ‘LLPY1’ YREL=CNTY @@6482 CA34 EE 84 @3 INC CNTX 
@2552 C9OF ; R@=SQR (CNTY*#CNTY+CNTX#CNTX) @@681 CAS7 4C 35 C9 MP LLPX1 
@2553 CIOF ; XSHD=CNTX-—(CNTX#RC) /RO @@682 CASA 68 DUNTOR RTS 
20554 C9OF ; YSHD=CNTY- (CNTY#*RC) /RQ @@683 CASB ; 
2055S C9OF ; HVFLAG=0:GOSUB ‘PTPLOT’ Q@@684 CAZB $9 FE FE FE FE IESE 9 a FEE HE IE TE TE Je 9 HE Te FFE JEJE EEE EE 2 a a ee 
@0556 C9OF ; HVFLAG=-128:GOSUB ‘PTFLOT’ @@685 CASB : 
@@557 C9OF ; IF CNTY=MAX THEN GOTO ‘DDNY1’ notes ee g ORAM INSIDE VIER":-TORDIDS 
= + 5 
aaa pao : een ote: oes core 3; ‘BASIC SUBROUTINE’ EQUIVALENT 
RC ‘ 2 ; 
Sores cone ; ers oa @2498 CA3B ; ‘SPOOL’ GOSUB ‘TPARM’ 
@0542 COOF ; @@691 CA3B ; FOR CNTX=@ TO RT 
@2563 C9@F 20 9A C7 TOROID JSR TPARM @8692 CASB ; XREL=CNTX: XSHD=CNTX 
@2564 C912 AD BE OB LDA RO Q@@693 CA3B 3 MAX=RC-SOR (RS-CNTX#*CNIX) 
@@565 C915 85 AC STA ARG @@694 CA3B : FOR CNTY=@8 TO MAX 
@0566 C917 20 04 Ce JSR SQUARE @@695 CAB ; YREL=CNTY | 
@2567 C91A 2 AE ASL SQR @2@496 CA3B $ YSHD= (RC#CNTY/MAX) -CNTY 
@05468 C9IC 26 AF ROL SQR+1 @0697 CAZB ; GOSUB “PTFPLOT’ 
@@569 CI1E AS AE LDA SOR @0698 CASB . NEXT CNTY 
@257@ C92@ 85 AC STA RADCND @@699 CAS3B 3 NEXT CNTX 
@@571 C922 AS AF LDA SOR+1 @272@ CASE ; RETURN 
@@572 C924 85 AD STA RADCND+1 @2@701 CAB ; 
@@573 C926 28 64 CO JSR SORT Q@@782 CAZB 28 9A C7 SPOOL JSR TPARM 
@0574 C929 4E 3D O3 LSR ROOT+1 @2723 CASE AD 86 @3 LLPX2 LDA CNTX 
@@575 C92C 6E 3C QZ ROR ROOT @0704 CA41 8D 4C 03 STA XREL 
@0576 C9ZF AD 3C Ox LDA ROOT @07@5 CA44 B85 AC STA ARG 
@@577 C932 BD 92 a2 STA XMAX @0706 CA46 38 SEC 
@0578 C9Z5 AD Bé Bs LLPX1 LDA CNTX @@707 CA47 AF 2B LDA #480 
@@579 C938 8D 6C as STA XREL @2708 CA49 ED 86 a3 SBC CNTX 
@258@ C93B 85 AC STA ARG @2789 CA4C 8D 6D @3 STA XSHD 
@@581 C93D 22 24 ca JSR SQUARE @@718 CA4F AF BB LDA #422 
@0@582 C949 SD 971 O23 STA XSOR+1 @@711 CAS1 EF 88 SBC #402 
@@583 C943 AS AE LDA SOR @@712 CAS3 8D &E @3 STA XSHD+1 
20584 C945 BD 92 a STA xSOR @Q@7i3s CAS& 22 04 CB JSR SQUARE 
@@585 C948 AD BE @3 LDA RO @@714 CASI 36 SEC 
@@586 C94B 85 AC STA ARG 20715 CASA AD BA @3 LDA RS 
@8587 C94D 20 04 Ca JSR SQUARE @@716 CASD ES AE SBC SOR 
eases c95a@ 38 SEC @@717 CASF eS AC STA RADCND 
@@589 C951 AS AE LDA SOR @0718 CASi AD BB Oz LDA RS+1 
@2592 C953 ED 92 a3 SBC XSOR @2719 CA64 ES AF SBC SOR+1 
@@591 C956 985 AC STA RADCND @@72@ CA&& 85 AD STA RADCND+1 
@@592 C958 AS AF LDA SOR+1 @0721 CAB 20 44 Ca JSR SORT 
@2593 CISA ED 91 @3 SBC XSOR+1 @@722 CA6B 38 SEC 
@2594 C9S5D 85 AD STA RADCND+1 @@723 CA&C AD BD @3 LDA RC 
@2595 C9ISF 22 64 Ca JSR SORT @0724 CA&F ED 3C a2 SBC ROOT 
@0596 C962 AD 3C O3 LDA ROOT @2725 CA72 8D 88 @3 STA MAX 
22597 C965 BD 88 @3 STA MAX Q@0726 CA75 A? 2a LDA ##00 
@2598 C968 38 SEC @0727 CA77 8D 87 @ STA CNTY 
@@599 C949 AD BF @3 LDA RI @@728 CA7A AD 87 @3 LLPY2 LDA CNTY 
@@62S CI96C ED 86 O53 SBC CNTX 22729 CA7D 8D 70 a3 STA YREL 
@260@1 C96F 92 23 BCC GRTR 2@73@ CAs@ 85 AD STA MLFLER 
@26@2 C971 AD BF az LDA RI @0731 CAS2 AD SD az LDA RC 
@@623 C974 85 AC STA ARG @@732 Cass 85 AC STA MLFCND 
Q@424 C976 20 04 Ca JSK SQUARE @0733 CAB7 728 11 Ce JSR MULT 
@4695 C979 38 SEC @0734 CASA 85 FE STA DVDND+1 
22686 C97A AS AE LDA SQR @@735 CASC AS AE LDA PROD 
@2687 C97C ED 928 @3 SBC XSOR @@734 CASE 85 FD STA DVDND 
@0608 C97F 85 AC STA RADCND @2727 CA9@ AD 88 @ LDA MAX 
@@689 C981 AS AF LDA SOR+1 @0738 CA93 85 FBR STA DVSOR 
@@618 C983 ED 971 OQ SBC XSOR+1 @2@739 CASS 20 EA CS JSR SDIV 
@@611 C984 85 AD STA RADCND+1 @274@ Ca98 AS FD LDA QUOT 
@8612 C98SE 280 64 C@ JSR SORT @@741 CASA 38 SEC 
@@613 C9BB AD FC Oz LDA ROOT @0742 CASB ED 87 Q3 SBC CNTY 
@0614 CI8E 8D 87 5 STA CNTY @8743 CASE 8D 71 @3 STA YSHD 
@2@615 C991 4C 9A C9 JMP LLPY1 @0744 CAAL AS FE LDA QUOT+1 
@2616 C994 AD 86 @3 GRTR LDA CNTX @2745 CAAZ ES 2 SBC #£20 
@@617 C997 8D 87 @3 STA CNTY 20746 CAAS 8D 72 @3 STA YSHD+1 
22618 C99A AD 87 Q3 LLPY1 LDA CNTY @0747 CAAB 722 28 Cé JSR PIFLOT 
@B619 CI9D GD 78 Os STA YREL @@748 CAAB AD 87 O3 LDA CNTY 
@2@420 C9AQ 85 AC STA ARG 22749 CAAE CD 88 @3 CMP MAX 
@@421 C9AZ2 20 B24 CB JSR SQUARE @075@ CABi FQ @ BEQ DDNY2 
@8622 CIAS 18 CLC @@751 CABS EE 87 Q3 INC CNTY 
@@623 CIA& AS AE LDA SQR @@752 CABS 4C 7A CA IMP LLPY2 
@8624 CIAB 6D 972 B3 ADC XSOQR @@753 CABS AD B84 @3 DDNY2 LDA CNTX 
@@625 C9AB 85 AC STA RADCND @@754 CABC CD &C a3 CMP RT 
@@626 CIAD AS AF LDA SOR+1 @2755 CABF FO 26 BEQ DUNHSP 
@@627 CIAF 6D 91 O3 ADC XSQR+1 @@756 CACi EE 86 a3 INC CNTX 
@@628 C9B2 85 AD STA RADCND+1 @@757 CAC4 4C 3E CA IMP LLPX2 
@2629 C9B4 722 64 CO JSR SORT @@758 cacy 49 DUNHSP RTS ir 
@2430 C9B7 AD 3C as LDA ROOT @0759 CACcB END 
@2631 CSBA 8D 89 23 STA RO 
@@632 C9BD 85 FB STA DVSOR ERRORS = 90000 
@@633 CIBF AD 86 Qs LDA CNTX 
G@B434 c9y9Cc2 85 AD STA MLFLER SYMBOL TABLE 
@2635 C9C4 AD SD a3 LDA RC 
@@636 C9C7 B5 AC STA MLECND SYMBOL VALUE 
@@637 C9C9 20 11 ca JSR MULT ARG 2eac BAKLIT 9382 CHCLUP Cé9a CLIPD 0380 
@@638 C9CC 85 FE STA DVDND+1 CLIPL @37D CLIPR Q37E CLIFU Q37F CNTNU cé4ee8 
@2439 C9CE AS AE LDA PROD 
@2642 C9D® Bs FD STA DVDND SYMBOL. TABLE 
> > 
cows ens on zee ‘om 
@2643 C9DS AD B6 a3 Gar eae CNTX 2386 CNTY @387 CXLOOP cea CYLNDR C844 
naa. Geno. e& ED ert caine CYLOOP ca75s DDNY 1 CAzC DDNY2 CABS DHEMI CéBC 
@2645 C9DB 8D 4D a3 Sta ein DIVIDE ce2zs DONE ceés DONE4 c700 DONEHT C9QE 
Oink, “Code ne oo ahaa DONEY cass DUNHSP CAC7 DUNTOR CA3A DVDND @QFD 
dandy cota Es FE gee teria DVSOR O@FB EDGTOR CssF GETVAL CSF1 GETZ C745 
GRTR C994 HEMI @381 HLEN 2389 HTORRN 22346 
@2648 C9E2 8D 6E @3 STA XSHD+1 HVFLAG 9383 3 
@649 CIES (AO OT GS ee eee LLPX1 c935 LLPX2 CASE LLPY1 C99A 
@265@ CEB as aD ath cee LLPY2 CA7A LOOPx cees LOOPX4  CB9A LOorY C82E 
east. Cuew “Aloo as cance LOOPY4  cscc MAX 2388 MLPCND avac MLPLER Q@@AD 
Gases CeED OR ar rn setae MULT Cait NEGATE CSFF NORM C224 NOROT Cé5A 
@@653 C9EF 22 11 CO JSR MULT isti 
@2654 C9F2 85 FE STA DVDND+1 End Listing Four 
@@655 C9F4 AS AE LDA PROD 
Sen eee et eee (Listing Five begins on page 76) 
,’ 
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BIG DISCOUNTS FROM 
JOHN D. OWENS ASSOCIATES 


MACROTECH MI-286: 80286/Z-80H IDUAL PROCESSOR S-100 CPU 
BOARD): $1,116 
MACROTECH MEMORY MSR: 120NS, high-speed dynamic RAM with 
realistic pricing: 
Works with CompuPro 8085/8088; MT-286 and others: 
256K: $556 512K: $876 
MACROTECH STATIC RAM: Substitute for RAM 22 and RAM 23. 
256K STATIC: $960 512K STATIC: $1,800 


EMERALD SYSTEMS HARD DISK SUBSYSTEMS and TAPE BACKUP 

High capacity! Up to 280 MB! Emerald has overcome the 32MB DOS 
limitation! Allows multiple volumes per physical drive. Back up and restore 
utilities. Ideal for LAN applications. 


HOUSTON INSTRUMENTS: Plotters: DMP 41 OR 42: $2,397; DMP 29: 
$1,838 
DIGITIZERS: L'I'11 $694; ID'1'114 $750; 
New! 14 pen DMP 51 and 52: $4,796 


DTILAA $714 


ILLUMINATED TECHNOLOGY S-100 COLOR GRAPHICS: $1,116 
NEC APC III: 80186 MS-DOS system w/spectacular graphics: 20% off list 


SEMIDISK 2MB DISK EMULATOR FOR IBM PC and EPSON QxX 10: 
$2,050 


BIG DISCOUNTS on LOMAS, COMPUPRO, IMS, 
INTERCONTINENTAL, DIGITAL GRAPHICS SYSTEMS, ADVANCED 
DIGITAL, ACKERMAN, BYAD and many others. 

Prices & availability subject to change without notice. 


Write or call for product literature and inventory sale list. 


WE EXPORT: OVERSEAS CALLERS: TWX 710 588 2844 
(OWENSASSOC NYK&) 


DOMESTIC AND OVERSEAS ORDERS TAKEN BY PHONE, 
LETTER, TELEX OR EASY LINK. 
We accept VISA and Mastercard. Shipping $5 per board in continental USA. 


JOHN D. OWENS ASSOCIATES 
12 SCHUBERT STREET STATEN ISLAND, NEW YORK 10305 
(718) 448 6283 (718) 4486298 (718) 448 2913 
EASY LINK MAILBOX ADDRESS: 65840768 


Introducing the 


LATTICE 


LATTICE UNVEILS 
FOUR PRODUCTS 


Lattice has announced the 
availability of four new software 
products for MS-DOS environ- 
ments: 

C-SPRITE™ is a software tool that 
simplifies debugging of programs 
written in Lattice C or assembly 
language. Cost: $175 per copy. 

LMK™ is an Automated Product 
Generation Utility (UNIX 
“MAKE’’) that enhances produc- 
tivity and relieves the tedium of 
rebuilding complex software sys- 
tems or documents. Cost: $195 
per copy. 

The TEXT MANAGEMENT 
UTILITY PACKAGE” includes util- 
ities to search a set of files for sim- 
ple or complicated patterns, to see 
the exact minimal differences 
between two text files, and to 
modify one or more text 
files automatically. Cost: $120 
per copy. 

CVUE” is a full screen text edi- 
tor that supports all normal 
screen editor functions and in- 
cludes a configuration program to 
define tabstop positions, horizon- 
tal scrolling and edit commands. 
Cost: $100 per copy. 

For complete information on 
these new products, contact 
Lattice. 


WORKS 


LATTICE C NAMED 
‘BEST OF 1984’ 


The Lattice C compiler has been 
rated ‘Best of 1984’ by PC Maga- 
zine. According to columnist 
Peter Norton, ‘“‘The Lattice C com- 
piler is quite good... and in my 
opinion noticeably better than 
any of its competitors. Lattice C 
generates code that is quite com- 
pact and fast running; the closest 
competitor in my tests generated 
code that was about 10 to 15 per- 
cent bulkier.” 


ASK ABOUT OUR “TRADE 
UP TO LATTICE C POLICY” 


After purchase, return registration 
cards for free subscription to the 
“Lattice Works” newsletter and im- 
portant information about the Lattice 
Users Group. 


Lattice, Inc. 

P.O. Box 3072 

Glen Ellyn, IL 60138 
(312) 858-7950 
TWX 910-291-2190 


International Sales Offices 

Belgium: Softshop. Phone: (32) 53-664875. 
England: Round Hills. Phone: (0672) 54675. 
dapan: Lifeboat Japan. Phone: (03) 293-2311. 





Circle no. 58 on reader service card. 





A breakthrough in Price, 
Performance and Packaging 


The new LS proves that good things come in small packages! Measur- 


L5 Features 


¢ KDJ11 Processor, floating point, 8K cache 


¢ 5Mb to 32Mb memory 


¢ 4 to 32 users 


¢ 20Mb to 2.5Gb external storage 

¢ UNIX System V Fast Kernel or Real Time Kernel 

¢ Runs RT11, RSX, and TSX 

* Includes several utilities packages, necessary cabling, complete 
documentation and tutorials 


ing a compact 3.75"H x 17.5"W x 21D, the L5 is small enough to 
fit on a desk-top or a laboratory workbench. Yet it’s large enough to 
handle up to 32 users and, in some applications, outperform a VAX 
system. The LS is small in price, too. A mid-range system can cost less 
than $1,000 per user! 


Find out how the new LS offers the unique solution to price, perfor- Aggressive Dealer/OEM discounts available 


. Call General Communications today! 
ae & placement challenges Ca Ge . y *UNIX is a trademark of AT&T-Bell Laboratories 

VAX, RT11, & RSX are trademarks of Digital Equipment Corporation 
TSX is a trademark of S&H Computer 


e General Communications Corporation 


“Where lucid communications, technical excellence and common sense meet.” 


1 Main Street, Suite 502, Eatontown, NJ 07724 (201) 542-6560 


Circle no. 13 on reader service card. 





Dr a wing on the C-64 (Listing Continued, text begins on page 50) 


Listing Four 


NORSTR C744 NOSCAL 
PLTSHD C2QF PROD 
QUOT @@FD RO 

RAM @36A RANDOM 
RI Q38F RNDM 
RS @38A RT 
SPOOL CA3B SQR 
TEMP 384 TNTMP 
TPARM C79A VALUE 
XPLT Q33F XREL 
YCENT @26F YPLT 
ZEROOT c791 ZREL 


END OF ASSEMBLY 


Listing Five 


Q2081 e200 

22282 2200 

Q22023 2200 

22284 8288 

Q@2205 2200 

Q2226 B800 

Q@2227 8202 

G2228 8800 

@2229 8200 

2018 8200 

Q2G1i1 go0a 

@2812 2a00 

2013s Aaa 

00214 8800 

BBW215 A2aa 

Q2016 8820 

@2217 8222 

02318 8000 

Q@28i19 BBaa 

Q2822 28200 

Q@2821 22008 

@B2B22 200 

Q@B2B23 BA20 

2824 2020 

80825 8820 

Q@2026 2280 

82227 28000 

88228 8000 

82029 2022 

@2832 8200 

Q@2831 8020 

84232 A000 

22335 2200 

08934 2802 

B82235 A280 

@B836 B02 

Q20837 8220 

82038 2202 

QBV23F BB20 

82048 28800 

Q0241 8202 

Q@2242 2200 

Q2243 0200 

02244 222 

Q2245 8200 

Q@224& 8220 

22847 8200 

G284E B222 

09249 8020 

82850 8200 

Q@B@Q5i ABB 

Q@B2B52 40000 

QBBS53 2020 

BBA54 8000 

QB255 8020 

2056 2000 

0057 ‘8200 

Q@8@58 28200 

82259 8280 

Q226G 2200 

Q@BA6i 2000 

Q2862 2208 

@2843 28000 

22264 2202 

2045 8820 

@2266 2208 

Q@2267 8200 

82268 8393 

@2269 8394 

Q@0870 8394 

@6871 CACS 

@2072 CaACcEs 

@@273 cCaAcs 

02874 CACcS 

@@075 CACB 

@2274 CACS 

82277 CACSs 

@0078 CACS 

88279 CACS 

@2288 CACS8 

@0@81 CACS 2@ FD AE 
@@@82 CACB 22 9E AD 
@@@83 CACE 20 AA Bi 
@@0@84 CADi 

@2@@85 CADi 69 
@@@84 CAD2 

@@@87 CAD2 

e@e9ee CAD2 

@@@89 CAD2 A? 2C 
@289@ CAD4 ABS aa 
@@391 CAD& 84 FB 
@@@92 CADS D1 7A 
@2@93 CADA DO @s 
@@294 CADC 4C 73 22 
@2095 CADF A®@ 8a 
@2@296 CAEL 84 FB 
Q@@0@97 CAES 48 
@2098 CAE4 

@2@99 CAE4 

@218@ CAE4 

@@101 CAE4 228 D2 CA 
@@1@2 CAE7 24 FB 
@B1935 CAEP 32 OF 
@@124 CAEB 28 9E AD 
@2195 CAEE 20 AA Bi 
@@186 CAFi 8C 8SF O23 
@2107 CAF4 2@ C8 CA 
@2198 CAF7 S&8C SE @3 
@2129 CAFA 68 
@@110@ CAFB 

76 


347 ORIGIN CSEA PLDONE C721 
QQAE PTPLOT C628 PTPLT2 Cé5D 
0389 RADCND BZAC RADIUS @377 
cece RC @38D RHEMI CéE8 
CQQ8 RO @38E ROOT @32C 
@38C SDIV CSEA SPHERE C7C7 
Q@Q@AE SQRT CQ64 SQUARE C824 
Q@378 TONE Q@379 TOROID CIOF 
Q@344 XCENT Q36A XMAX Q392 
@36C XSHD @246D XSOR 2398 
341 YREL 378 YSHD Q371 
Q@373 ZWX @375 


INTERFACE -— EASY PARAMETER SETTING FOR SHAFE 
DRAWING ROUTINES FROM BASIC. 
RYLANDER 


RICHARD L. 11/23/84 


FEF FE Ee EE IE EE FE EE JE SE EE EE FE IEE IE aE HEE 
ORIGIN=4#CAC8 
RAM =$0393 


PARAMETER LOCATIONS FOR VARIOUS SHAPES 


; 
XCENT 


=#036A 
YCENT =#@036F 
XPLOT =#033F 
YFLOT =#0341 
XMIN =$034A 
YMIN =F@34C 
XMID =#034D 
YMID =$034F 
XMAX =F0350 
YMAX =F@I52 
RADIUS =#0377 
HLEN =$0389 
RI =#038F 
RO =$Q38E 


$s 

HVFLAG =#8383 
VALUE =$0344 
PLTFLG =2033E 
3 

DEFLAG =#FB 


HHH HHH HHH HHH HMR 


FUNCTION LOCATIONS 


ows ws we we 


> 
GRFON =#CQE2 
GRFOFF =#C1@3 


SWITCH TO GRAPHICS MODE 
RETURN TO TEXT DISPLAY 


5 

CLEARR=#C12C 
CLRBYT=2C135 
COLORR=#C118 


CLEAR BITMAF 
CLEAR (FILL) BYTE 
LOAD COLOR MAP 


ws es we we 


COLBYT=#C119 COLOR BYTE 

3 

PLOTR =#C14B POINT FLOT ROUTINE 
LINER =#C2DB DRAW A LINE 


FACETR =#C4E1 DRAW A SHADED FACET 


, 
SMEAR HHH REHM HHH EHH 


SHADED SHAFE DRAWING ROUTINES 


5 
SPHERR=2C7C7 
CYLNDR=#C864 
TORUSR=#C9QF 
EDGTOR=$C88F 
SPOOLR=$CA3B 


3 
5 9 9 9H FEE aE I HEE OE HE SEE HE HE IE HE 2 ae aE 0 EE a HE 2 HH a a 


SPHERE 

CYLINDER 

TOP-VIEW TOROID 
EDGE-VIEW TOROID 
INSIDE-VIEW TOROID 


5 
3 BASIC ROM ROUTINES 


3 

CHKCOM=#AEFD 3 CHECK FOR COMMA 
EVAEXP=#AD9E 3 EVALUATE EXFRESSION 
FLTFIX=sBiAA 3; CONVERT TO FIXED 

5 

*=RAM 

LINFAC #=#+1 : LINE OR FACET FLAG 
; 

*=ORIGIN 


, 
FHKE ERR 


’ 

3 GET PARAMETERS FROM BASIC CALLING STATEMENT 
3 OF THE FORM: 

3 SYS(FNCTN) ,PARAM1 ,PARAM2,PARAMSCOPTI 

3 WHERE THE THIRD PARAMETER (FOR EXAMPLE) 

5 MAY BE OPTIONAL (A DEFAULT VALUE IS USED 

3 IF THE PARAMETER IS NOT SFECIFIED) 

, 

G 


ETNUM JSR CHKCOM 3; LOOK FOR COMMA 
JSR EVAEXP ; EVALUATE EXPRESSION 
JSR FLTFIX ; CHANGE TO INTEGER WITH 
; HIGH BYTE IN “A” AND LOW BYTE IN "Y" 
RTS 
3; CHECK FOR ADDITIONAL (OPTIONAL) FARAMETERS 
’ 
PCHECK LDA ##2C 3; "," COMMA 
LDY #0 
STY DEFLAG 
CMP (#7A),Y 
BNE NOMORE 3; NO COMMA - USE DEFAULT 
JMP #2873 
NOMORE LDY ##82 
STY DEFLAG 
RTS 


5 
3 GET TWO ADDITIONAL PARAMETERS FOR TOROIDS 
> 
GETTWO JSR PCHECK 

BIT DEFLAG 

BMI DFAULT 

JSR EVAEXP 

JSR FLTFIX 

STY RI 

JSR GETNUM 

STY RO 
DFAULT RTS 
; 


@@111 
@G112 
88113 
@@114 
@0115 
Q2116 
Q0117 
00118 
Q@2119 
@2128 
@@121 
@2122 
0123 
@0124 
@@125 
@G126 
90127 
80128 
@@129 
@2130 
Q0131 
Q@@132 
@2133 
8134 
@@1i35 
QB134 
@@137 
00138 
00139 
@2142 
@0141 
@@142 
Q0143 
00144 
@2145 
@2146 
@0147 
02148 
Q@2149 
@0152 
@@151 
@2152 
@@153 
2154 
@@155 
@@156 
@@157 
@2158 
@8159 
22160 
@@161 
@2162 
@8163 
22164 
@@145 
@214646 
@2147 
201468 
@0149 
22172 
2171 
Q@@172 
00173 
@2174 
@0175 
Q@21764 
00177 
00178 
@2179 
00188 
@@161 
@2182 
@2183 
@0184 
@8185 
@8186 
00187 
00188 
02189 
Q@2190 
@@191 
@0192 
2193 
22194 
@0195 
Q0196 
@@197 
80198 
@0199 
Q2200 
02201 
Q@8202 
Q8203 
8204 
88285 
QB206 
@2207 
22208 
@0289 
@0212 
Q@@211 
@8212 
Q@@213 
@0214 
0215 
Q@@216 
@G217 
@0218 
@8219 
28220 
@8221 
@8222 
8223 
88224 
@@225 
@8226 
28227 
@8228 
@8229 
88238 
@@231 
Q@2232 
@8233 
8234 
@8235 
Q@B236 
@8237 


CAFB 
CAFB 
CAFB 
CAFB 
CAFB 
CAFE 
CBO1 
CBQ4 
CBO7 
CBGA 
CBQB 
CBOB 
CB@B 
CBeB 
CBQB 
CBOB 
CBQB 
CBOE 
CB12@ 
CB12 
Chis 
cB18 
CEL? 
CBIB 
CBLE 
CB21 
CB21 
CB21 
CB21 
CB21 
CB21 
CB21 
CB21 
CB24 
C26 
cuze 
CB2B 
CB2E 
CB2F 
CBz1 
CB34 
CB37 
CB37 
CB37 
CB37 
CB37 
CB37 
CB39 
CB3A 
CB3C 
CB3F 
CB42 
CB45 
cB48 
CB4B 
CB4E 
CBS1 
CBSi 
CBS1 
CBS1 
CBSi 
CBS1 
CBS1 
CBS1 
CESS 
CES4 
CBS 
CES9 
CBSC 
CBSF 
CBé2 
CB6S 
CB48 
CBéB 
CBSE 
CB71 
CB74 
CB77 
CB7A 
CB7C 
CB7F 
cBB2 
cBes 
cBss8 
CBEB 
CBSE 
CBY1 
CB94 
CB97 
CB97 
CB97 
CB97 
CB97 
CB97 
CB97 
CBIA 
CB9D 
CB9F 
CBAL 
CBA4 
CBA7 
CBAA 
CBAD 
CBAD 
CBAD 
CBAD 
CBAD 
CBAD 
CBAD 
CEB 
CBB3 
CBB& 
CBBS 
CBB& 
CEBS 
CBB6 
CBBS 
CBBE 
CBB& 
CBBB 
CBB 
CBEB 
CBBE 
CBCi 
CBC4 
CBCé 
cBce 


28 


8D 
22 
8C 
68 


20 


5 
<= 


38 
22 
28 
=C 
AS 


4c 


Ag 
2C 
A? 
6D 
28 
8C 
8D 
28 
8C 
4C 


A? 
2C 
A? 


20 
8c 
8D 
28 
8C 
28 
8C 
8D 


2 

8C 
2C 
13 
28 
8c 
8D 
20 
8c 


a 
<= 


6C 


4c 


28 


> 
= 


4c 


cs 
6A 
6B 
c8 
6F 


D2 
FB 
@7 
9E 
AA 


22 
35 
2C 


D2 
FB 
@7 
9E 


@1 
19 
18 


8a 


= 
~ 


ce 
SF 
42 
C8 
41 
4B 


Qa 


8a 
ce 
4A 
4B 
ce 
4C 
ce 
4D 
4E 
ce 
4F 
93 
i8 
ce 
50 
Si 
ce 
S2 
ca 
44 
El 
DB 


FB 
D2 
FB 


9E 
AA 
TT 
C7 


FB 


OF 


22 
83 
FB 
D2 
FB 
OF 
9E 


CA 
@3 
@3 
CA 
@3 


CA 


AD 


ci 
ci 


CA 


AD 
Bi 


C1 
C1 


= 
2 


CA 
@3 
CA 
Q3 
CA 
OS 
@3 
cA 


Q3 


CA 

3 
Qs 
CA 
Q3 
CA 
Qs 
c4 


-F 
-_ 


CA 
cA 


AD 
Bi 


C7 


cA 
CA 
c9 


@3 
CA 
CA 


AD 


$96 HE FE HE IE FEE FE SE IE SE SE HE IE IE De HEI HE TE HE EF EJ HE EEE EE SE HE TEE SE J HE HE 
; 
3 SET CENTER COORDINATES 


’ 

CENTER JSR GETNUM 
STY XCENT 
STA XCENT+1 
JSR GETNUM 
STY YCENT 
RTS 


RRR AKARERAAAAAHHAHERERARHHHHRHHRHHRHHHEHE 


3 

; 

5 

3 CLEAR THE BITMAP, FILLING WITH (OPTIONAL) 
3; FILL VALUE SPECIFIED OR WITH (DEFAULT) "QQ" 
i 
Cc 


LEAR2 JSR FCHECK 
BIT DEFLAG 
BMI DEFCLR 
JSR EVAEXP 
JSR FLTIFIX 
-BYTE $2C 

DEFCLR LDY #2 

STY CLRBYT 
JmMP CLEARR 


HHRMA HHRMA HERRERA RHR MEARE HHH HHH 


i 
; 
, 
3; FILL COLOR MAP WITH (OPTIONAL) COLOR BYTE 
; SFECIFIED OR WITH (DEFAULT) “Ss@1" 
; (BLACK DOTS ON WHITE BACKGROUND) 
s 
COLOR2 JSR PCHECK 

BIT DEFLAG 

BMI DEFCOL 

JSR EVAEXP 

JSR FLTFIX 

~BYTE 22€ 
DEFCOL LDY ##01 

STY COLBYT 

JMP COLORR 


BE FE HE HIE HE IE HE TE HE TE HE HE HE EE HE IE EE EEE EEE 


PLOT OR UNFLOT POINTS 


“Ties ee of es we 


‘LOT2 LDA #0 
-BYTE #2C 
UNPLT2 LDA ##80 
STA FLTFLG 
JSR GETNUM 
STY XFPLOT 
STA XFLOT+1 
JSR GETNUM 
SEY NEAT 


JMP PLOTR 


HEARERS MRR HHH HH 


DRAW LINES BETWEEN (X1,Y1) AND (X2,Y2) 
OR SHADED FACETS BETWEEN THREE FOINTS 
(X1,Y1), (X2,Y2) AND (X3,Y3) 


[7 et ee ee we ee ee we 


INE2 LDA #0 

- BYTE. #2C 
FACET2 LDA ##89 
STA LINFAC 
JSR GETNUM 
STY XMIN 
STA XMIN+1 
JSR GETNUM 
STY YMIN 
JSR GETNUM 
STY XMID 
STA XMID+1 
JSR GETNUM 
STY YMID 
BIT LINFAC 
BFL LDRAW 
JSR GETNUM 
STY XMAX 
STA XMAX+1 
JSR GETNUM 
STY YMAX 
JSR GETNUM 
STY VALUE 
JMP FACETR 
JMP LINER 


HR KKH ERE HERRERA HHH HHH HHH H 


DRAW A SPHERE CENTERED AT (XCENT,YCENT) 
DEFAULT RADIUS IS LAST VALUE USED 


(UD ve oe ee ee we we 


PHER2 JSR CENTER 
JSR FCHECK 
BIT DEFLAG 
BMI SKIF IL 
JSR EVAEXP 
JSR FLTFIX 
STY RADIUS 

SKIP1 JMP SFHERR 

FETE ETE IE FETE ETE TE JME IE IE JE HE HEE FEE ETE FE FE IE HE IE IEE IE EEE EE 


DRAW A TOP-VIEW TOROID AT (XCENT,YCENT) 
DEFAULT INNER AND OUTER RADII ARE LAST USED 


we ee ee we ee 


CRUS2 JSR CENTER 
JSR GETTWO 
JMP TORUSR 


RKKKKKEKEARHKAHRARHEAMRE RARER EHR RHEE 


DRAW CYLINDERS WITH AXES HORIZONTAL OR 
VERTICAL. DEFAULT RADIUS AND “HALF-LENGTH” 
3 ARE LAST VALUES USED. 


; 
VCYL2 


s 
3 
° 
; 
; 
. 
3 
a 
; 


LDA #382 
«BYTE #2C 
LDA #2 

STA HVFLAG 
JSR CENTER 
JSR FCHECK 
BIT DEFLAG 
BMI SKIP2 
JSR EVAEXP 


HCYL2 


(Continued on page 78) 
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Circle no. 37 on reader service card. 
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Due to popular demand, Dr. Dobb’s Journal has reprinted its most- 
asked-for C compiler articles by Ron Cain and J. E. Hendrix, each for 
only $5.00. 

Ron Cain’s C compiler from sold-out 1980 issues #45 and #48 includes 
“A Small C Compiler for the 8080s” and “Runtime Library for the Small 
C Compiler.” 

The J. E. Hendrix reprint includes part two of “Small-C Compiler v.2° 
from sold out issue #75 and completes the first part of the compiler 
article from issue #74 which is included in Dr. Dobb’s Bound Volume 7. 
To Order: Enclose $5.00 for each copy with this coupon and send to: 
Dr. Dobb's Journal, 2464 Embarcadero Way, Palo Alto, CA 94303 
Outside U.S., add $2.00 per copy for shipping and handling. 




















Please send copy(ies) of the Ron Cain Reprint, and 
copy(ies) of the J. E. Hendrix reprint to: 
Name 
Address 
City State Zip 
ALL REPRINT ORDERS MUST BE PREPAID. 
Please allow 6-9 weeks for delivery. 103 





C Programmers: 
Program 
three times faster 


with Instant-C" 


Instant-C™ is an optimizing interpreter 
for the C language that can make pro- 
gramming in C three or more times faster 
than using old-fashioned compilers and 
loaders. The interpreter environment 
makes C as easy to use as Basic. Yet 
Instant-C™ is 20 to 50 times faster than 
interpreted Basic. This new interactive 
development environment gives you: 













Instant Editing. The full-screen editor is 
built into Instant-C™ for immediate use. 
You don’t wait for a separate editor pro- 
gram {to start up. 


Instant Error Correction. You can 
check syntax in the editor. Each error 
message is displayed on the screen with 
the cursor set to the trouble spot, ready 
for your correction. Errors are reported 
clearly, by the editor, and only one at a 
time. 


Instant Execution. Instant-C™ uses 
no assembler or loader. You can execute 
your program as soon as you finish 
editing. 

Instant Testing. You can immediately 
execute any C statement or function, set 
variables, or evaluate expressions. Your 
results are displayed automatically. 


Instant Symbolic Debugging. Watch 
execution by single statement stepping. 
Debugging features are built-in; you don’t 
need to recompile or reload using special 
options. 

Instant Loading. Directly generates .EXE 
or .CMD files at your request to create 
stand-alone versions of your programs. 


Instant Floating Point. Uses 8087* co- 
processor if present. 


Instant Compatibility. Follows K & R 
standards. Comprehensive standard 
library provided, with source code. 


Instant Satisfaction. Guaranteed, or 
your money back. Instant-C™ 

is available now, and works under 
PC-DOS, MS-DOS*, and CP/M-86*. 

Find out how Instant-C™ is changing 
the way that programming is done. 
Instant-C™ is $495. Call or write for 
more information. 


Rational 


Systems, Inc. 
(617) 653-6194 
P.O. Box 480 
Natick, Mass. 01760 


















































Trademarks: MS-DOS (Microsoft Corp.). 8087 (Intel Corp.), CP/M-86 
(Digital Research. Inc.) Instant-C (Rational Systems. Inc.) 
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Dr, a wing on th e C: -64 (Listing Continued, text begins on page 50) 
Listing Five 


@8238 CBCB 20 AA Bi JSR FLTFIX 

@@239 CBCE S8C 77 @3 STY RADIUS 

@0240 CBDi 22 C8 CA JSR GETNUM 

@8241 CBD4 8sC 89 @3 STY HLEN 

92242 CBD7 4C 64 C8 SKIP2 JMP CYLNDR 

@@243 CBDA ; 

@@244 CBDA 5 HEHEHE IEEE TE IIE FI IE IE FETE FE JE JE JE JE IEEE FEE HE EE ETE TET EE HE EE 

@8245 CBDA ; 

@224& CBDA 3 DRAW EDGE-VIEW TOROIDS WITH AXES HORIZONTAL 

@8247 CBDA 3; OR VERTICAL 

@8248 CBDA 3 INNNER AND OUTER RADII ARE OPTIONAL 

@@249 CBDA ; 

Q@B258 CBDA A? 8a VTOR2 LDA ##8@ 

@@251 CBDC 2C -BYTE #2C 

@@252 CBDD A? 00 HTOR2 LDA #0 

@@253 CBDF 8D 83 @3 STA HVFLAG 

@0254 CBE2 20 FB CA JSR CENTER 

@@255 CBES 2@ £4 CA JSR GETTWO 

@@256 CBES 4C 8F C8 JMP EDGTOR 

@@257 CBEB 3 

@0258 CBEB 5 FE FE HIE TE HE TE IE HE FEE HE TEE IE FE HE IE IE HEE HE HE HE HE HE HEHE HE HE HEH EE HE 

@2259 CBEB ; 

@6260 CBEB 3 DRAW INSIDE-VIEW TOROIDS, "“SFOOLS", 

@8261 CBEB 3 WITH AXES HORIZONTAL OR VERTICAL 

@Q262 CBEB 3 INNER AND OUTER RADII ARE OPTIONAL 

@@263 CBEB ; 

02264 CBEB A? 82 VSPL2 LDA #480 

@@265 CBED 2 -BYTE #2C 

@@26& CBEE AD 2B HSPL2 LDA #0 

Q@2@267 CBFQ@ 8D 83 @3 STA HVFLAG 

08268 CBF3 28 FB CA JSR CENTER 

@0269 CBF& 2@ £4 CA JSR GETTWO 

@027@ CBF9 4C 3B CA JMP SFOOLR 

@@271 CBFC - END 

ERRORS = 88202 

SYMBOL TABLE 

SYMBOL VALUE 

CENTER CAFB CHE:COM AEFD CLEAR2 CBOB CLEARR c12c 
CLRBYT Ciss COLBYT C119 COLOR2 CB21 COLORR c118 
CYLNDR C8é4 DEFCLR CB19 DEFCOL CB2F DEFLAG QQFB 
DFAULT CAFA EDGTOR C88F EVAEXKF ADVE FACET2 CBS4 
FACETR C4E1 FLTFIX BiAA GETNUM CAC8 GETTWO CAE4 
GRFOFF C183 GRFON CQE2 HCYL2 CBB9 HLEN @389 
HSFL2 CBEE HTOR2 CBDD HVFLAG 0383 LDRAW CB94 
LINE2 CBS1 LINER C2DB LINFAC @393 NOMORE CADF 
ORIGIN CAC8 FCHECK CAD2 FLOT2 CB37 FLOTR C14B 
PLEFLG @33E RADIUS Q377 RAM 393 RI 38F 

RO @38E SKIF 1 CBAA SKIF2 CBD7 SFHER2 CB97 
SPHERR C7C7 SFOOLR CA3B TORUS2 CBAD TORUSR C9OF 
UNFLT2 CB3A VALUE 344 VCYL2 CBB& VSFPL2 CBEB 
VTOR2 CBDA XCENT Q@36A XMAX @350 XMID @34D 
XMIN 34A XPLOT O33F YCENT @36F YMAX O352 
YMID Q34F YMIN @34C YFLOT O241 

e e e 

END OF ASSEMBLY End Listing Five 

Listing Six 

18 REM SHAFES DEMO 

28 : 

3@ REM RICHARD L. RYLANDER 11/23/84 (REVISED 1/20/85 TO ADD LABELING) 
4@: 

5@ GR=49378 :REM GRAFHICS MODE 

60 TX=49411 :REM TEXT MODE 

72 : 

8@ LB=893 :REM LEFT BOUND 

92 RB=894 :REM RIGHT BOUND 

100 UB=895 7REM UF BOUND 

11@ DB=896 :REM DOWN BOUND 

120 : 

130 REM FLAGS FOR VARIOUS DRAWING MODES 

142 : 

150 SH=836 7REM SHADE STYLE — @=RANDOM, 1=HALFTONE 

168 SC=839 7REM SCALING - @=NORMAL (1:1), 1=SCALED (3:4) FOR SCREEN DISPLAY 
178 LT=898 ?REM LIGHTING - @=NORMAL SINGLE-SOURCE, 1=BACKLIT ILLUMINATION 
182 : 

190 BO=5328a :REM BORDER COLOR 

202 : 

21@ REM FUNCTION LOCATIONS 

220 : 

238 CL=51979 7REM CLEAR BITMAP AREA 

248 CO=52001 :REM FILL COLOR MAP 

250 : 

260 SP=52119 :REM SPHERE 

27@ TR252141 >REM TOP-VIEW TOROID 

28@ VC=52150 7REM CYLINDER (AXIS VERTICAL) 

298 HC=52153 :REM CYLINDER (AXIS HORIZONTAL) 

38@ VT#=52186 zREM EDGE-VIEW TOROID (AXIS VERTICAL) 

319 HT=52189 :REM EDGE-VIEW TOROID (AXIS HORIZONTAL) 

328 VS=52203 7REM INSIDE-VIEW TOROID C’SPOOL"] (AXIS VERTICAL) 

338 HS=S52286 ?REM INSIDE-VIEW TOROID C"SFOOL"] (AXIS HORIZONTAL) 

348 : 

35@ REM DRAW SAMPLES OF PRIMITIVE SHAFES WITH LABEL BENEATH EACH 

368 : 

37@ POKE SH,1 :REM HALFTONE SHADING 

38@ FOKE SC,1 :REM USE SCREEN SCALING (FOR UNDISTORTED SPHERES, ETC.) 

390 POKE LT,@ :REM USE NORMAL (NO BACKLIGHT) ILLUMINATION 

4@@ SYS(CL) =REM CLEAR SCREEN (DEFAULT - FILL BITMAP WITH @’S) 

412 SYS(CO) ,16*11+1 7REM COLOR COMBINATION — DARK GRAY (11) DOTS ON WHITE (1) 

412 REM LOOKS BETTER THAN DEFAULT COLOR COMBINATION OF BILACK DOTS ON WHITE 

414 REM ON MOST COLOR MONITORS 

420 FOKE BO,1 :REM WHITE BORDER TO MATCH BACKGROUND 

430 SYS(GR) :REM ENTER BITMAFFED GAAPHICS MODE 

432 RWa12:CM=14:MD=1:At="SAMPLE SHAPES":GOSUB 190@0:REM FUT TITLE GN IMAGE 

434 X1"1182 V1=12@: X2=210: Y2=120: BC=1:DC=7:GOSUB 17@@:REM COLOR TITLE TEXT 

44@ POKE LB,38:FOKE RB,38:FOKE UB,38:FOKE DB,38 sREM INITIALIZE CLIPPING 

45@ SYS(SP) ,40,199,38 

455 RW=9: CM=2:MD=1:As="SPHERE" : GOSUB1920 


468 
465 
478 
475 
482 
485 
492 
495 
582 
5@5 
512 
S15 
528 
S25 


SYS(HC) ,128,199,38,78 
CM=11:AS="H-CYLNDR" : GOSUB190@ 

‘SYS(VC) ,2008,199 :REM NO SIZE PARAMETERS GIVEN, DEFAULT (PREVIOUS) ARE USED 
CM=21:AS="V-CYLNDR" : GOSUB1 990 

SYS (TR) ,280,199,15,38 

CM=32: A$="TOROID": GOSUB1922 

SYS(VT) 40,64 

RW=23: CM=1:A#="V-TOROID": GOSUB1920 
SYS (HT) ,120,44 

CM=11:A$="H-TOROID": GOSUB1990 

SYS (HS) ,200,64,5, 100 

CM=22: Af="H-SPOOL" : GOSUB1920 

SYS(VS) ,280,464 

CM=32: A$="V-SPOOL” : GOSUB19290 


78 


330 
548 
558 
568 
578 
589 
S82 
584 
S86 
5978 
688 
618 
628 
632 
642 
652 
668 
672 
688 
692 
7288 
719 
720 
740 
758 
762 
778 
780 
792 
792 
794 
796 
798 
822 
818 
82 
838 
840 
852 
868 
872 
88a 
893 
900 
918 
928 
930 
942 
958 
968 
972 
982 
998 


1220 
1818 
1028 
1030 
1240 
1050 
1848 
1870 
1082 
1098 
1180 
1102 
1124 
1110 
1120 
1138 
1148 
1150 
1168 
1178 
1199 
1280 
1218 
tz 

1238 
1248 
1258 
1268 
1270 
1288 
12928 
1380 
1312 
1320 
1330 
1348 
1358 
1348 
1378 
1382 
1398 
1418 
1420 
1438 
1442 
1452 
1460 
1472 
1489 
1498 
1582 
1518 
1520 
1538 
1548 
155@ 
15462 
1572 
1580 
1593 


1682 


1618 
1620 
1632 
1649 
1658 
1660 
1672 
1680 
1698 
1702 
1718 
1728 
1738 
1748 
1750 


POKE 198,0:WAIT 198,1:POKE 198,08 
REM WAIT FOR A KEY TO BE PRESSED 


REM DRAW TWO “GOBLETS" ONE WITH HALFTONE, THE OTHER RANDOM SHADING. 

: 

SYS(CL):SYS(CO) ,16#11+1 

RW=14:CM=15:Af="COMPARISON":GOSUB 190@:RW=15:CM=19:A="0F":GOSUB 1920 
RW=16:CM=14:AS="SHADE STYLES":GOSUB 190@:RW=18:CM=14:AS="<-- HALFTONE" 
GOSUB 1900:RW=20:CM=15:A#="RANDOM -->":GOSUB 1900 

POKE LB,255:POKE RB,255:FOKE UB,49:FOKE DB,255: REM CLIP AT SCREEN TOP 
SYS (SP) ,80,198,e0 
POKE UB,51:POKE DB,S1: 
SYS(VS) ,88,69,18,130 
POKE DB,9:POKE UB,8 
SYS (VT) ,88,9,25,45 
POKE SH,@ :REM SWITCH TO RANDOM SHADING 

POKE LB,255:POKE RB,255:POKE UB,49:POKE DB,255 
SYS (SP) ,248,190,80 

FOKE UB,51:POKE DB,S1 

SYS(VS) ,240,69,12,130 

POKE DB,9:POKE UB,8 

SYS(VT) ,240,9,25,45 

POKE 198,@:WAIT 198,1:POKE 198,2 


REM CLIP AT JUNCTION WITH SPHERE FOR SMOOTH SEAM 


REM DRAW "WINE" SCENE 

FOKE LT,1 :REM BACKLIT ILLUMINATION 

POKE SH,1 :REM HALFTONE SHADING FOR MOST (RANDOM 
SYS(CO):SYS(CL),255: REM FILL BITMAP WITH 1°S ("SET™ 
FOKE BO,@ : REM BLACK BORDER TO MATCH BACKGROUND 
RW=: CM=@:MD=2:AS="DRAWING WITH":GOSUB 1982: RW=1:CM=2:A="BACKLIGHT™ 
GOSUB 1980: RW=2:CM=0:As="AGAINST A SET":GOSUB 1992 

RW=3: CM=2: A$="BACKGROUND":GOSUB 1922 

RW=1:CM=246:AS="COLORS ADDED":GOSUB 1900 

RW=2:CM=25:A$="TO SELECT AREAS":GOSUB 1922 

REM DRAW BOTTLE 

POKE UB,@:FOKE DB,255:FOKE LB,2S5S:FOKE RB,255 

SYS(VT) ,150,18,30,5@ 

POKE UB,255:SYS(VC) ,150,78,52,40 

POKE DB,@:SYS(VT) ,158,130,6,50 

POKE DB,SS:POKE UB,@:SYS(VS) ,150,204,15,181 

POKE UB,255:SYS(VC) ,150,221,14,17 

: 
REM 
POKE 
POKE 
: 
REM DRAW SOME GRAPES 

SYS(SF),8,8,8: REM OTHER "GRAPES" WILL BE SAME RADIUS - JUST GIVE POSITIONS 
SYS (SP) ,28,8:SYS(SF) ,40,8:SYS(SP) ,12,28:SYS(SP) ,30,20:SYS(SF) ,25,16 

: 

REM DRAW AN APPLE BY A PAIR OF EDGE-VIEW TOROIDS AND A SPHERE SECTION 

POKE UB,255:POKE DB,255:FOKE LB,255:FOKE RB,5S9 

SYS (VT) ,268,29,8,50:SYS(VT) , 268,79 

POKE UB,43:FOKE DB,43:SYS(SP) ,262,54,42 

REM PUT STEM ON AFPLE 

POKE RB,@:FOKE DB,@:SYS(TR) ,272,104,10,15 

REM ADD A LEAF BY A SPHERE SECTION 

POKE DB,255:POKE RB,@:SYS(SF) ,256,119,15 

REM ADD A RANDOM SHADED “LABEL” TO THE BOTTLE 

FOKE UB,25S5:POKE RB,255:POKE LB,é 

POKE .SH,@:SYS(VC) ,159,72,50, 48 


“LABEL” ON BOTTLE) 
BACK GROUND) 


DRAW WINE GLASS 
UB, 20:SYS(SP) ,80,120,460 
UB,35:POKE DB,34:SYS(VS) ,8@,34,10,110 


REM ADD COLORS TO “WINE“ SCENE 

SYS(CO),12:REM REPLACE WHITE “HOLES” (BACKGROUND) WITH MEDIUM GRAY 
X1=Q: Y1=200: X2=100;: Y2=239: DC=0:BC=@:GOSUB 1708:REM HIDE TEXT IN CORNERS 
X1=160: Y1=200: X2=319: Y2=239: DC=@: BC=@:GOSUB 1720 

X1=200: Yi=1: X2=315: Y2=180: DC=0:BC=2:GOSUB 1720 

X1=240: Y1=110:X2=255: Y2=15@: BC=5:GOSUB 17200 

X1=260: Y1=110:X2=27@: Y2=125:BC=9:GOSUB 1720 

X11: Y1=1:X2=48: Y2=2@: BC=4:GOSUB 17200 

X1=140: Y1=2@5: X2=180: Y2=235: 8C=7:GOSUB 1700 
X1=145:Y1=25: X2=195: Y2=115: BC=6:GOSUB 1700 

FOKE 198,@:WAIT 198,1:FOKE 198,@ 

REM “COFFEE AND DONUTS" 

POKE SH,@ :REM RANDOM SHADING ON DONUTS 

SYS(CO) ,16*11+1:SYS(CL):POKE BO,1:REM WHITE BORDER TO MATCH BACKGROUND 
POKE LB,255:POKE RB,255:POKE UB,255:FOKE DB,255 :REM NO INITIAL CLIPPING 
SYS(VT) ,68,20,20,40 

POKE RB,29:SYS(VT) ,99,68:POKE RB,255 

SYS(TR) , 188,160 

REM ADD COFFEE CUF (HALFTONE SHADING) 

POKE SH,1:POKE UB,@:SYS(VT) ,188,20:POKE UB,255 

POKE DB,@:SYS(TR) ,278,118,28,4@ 

POKE DB,255:POKE UB,@:FOKE LB,@ 

SYS (TR) ,248,98,58,78:FOKE LB,255:SYS(SP) ,248,110,10:FOKE UB,255 
SYS(VC) ,308,180,10,12 

SYS (VC) ,188,77,68,57 

POKE DB,@:SYS(VT) ,188,134,48,40 

REM ADD COLOR - FIRST MAKE SCREEN BROWN DOTS ON WHITE THEN MAKE CUP GREEN 
SYS(CO),1+16*9 :REM 1=WHITE BACKGROUND, 9=BROWN DOTS 
X13130:YV1=1: X2=319: Y2=136: BC=1:DC=5:GOSUB 1708 

X1=250: Y¥1=144:X2=319: Y2=144:GOSUB 1722 

FOKE 198,@:WAIT 198,1:POKE 198,0 


KEM DRAW “LINKED" TOROIDS BY REDRAWING OVERLAP AREAS USING CLIFFING 
FOKE LT,@ :REM BLUE DOTS ON WHITE, NO BACKLIGHT 

SYS(CL):SYS(CO) ,1+16#6: REM 1=WHITE BACKGROUND, 6=BLUE DOTS 

POKE UB,255:FOKE DB,25S:FOKE LB,255:FOKE RB,255: REM NO INITIAL CLIPPING 
POKE SH,@ :REM RANDOM SHADING 

SYS (TR) ,244,84,48,70 

SYS (TR) ,168,84:SYS(TR) ,74,84 

SYS(TR) ,118,156:SYS(TR) 202,156 

REM ADD PROPER OVERLAP SECTIONS 

POKE RB,O:FOFE DB,@:SYS(TR) ,160,84:FOKE RB,255:FOKE LB,@ 

SYS(TR) ,76,84:FPOKE DB,2SS5:F Oe UB ,@:SYS(TR) ,118,156 

POKE LB,25S5:FOKE RB,O:SYS(TR) ,202,156:POKE LB,27 

POKE DB,@:POKE UB, 255:SYS(TR) , 160,84 

POKE DB,@:FOKE UB,255:SYS(TR) , 160,84 

POKE LB,255:POKE UB,27:SYS(TR) ,244,84 

POKE LB,@:FOKE RB,27:POKE UB,255:SYS(TR) ,244,84 

POKE 198,0 

GET @f: IF AS= “" THEN 1590 

SYS(TX):POKE BO,14:REM RETURN TO TEXT MODE 

END 


REM SUBROUTINE FOR ADDING COLOR TO DIFFERENT SCREEN AREAS 

REM REMEMBER THAT COLOR BOUNDARIES MUST CORRESPOND TO CHARACTER BOUNDARIES 
REM DEFINE A RECTANGULAR AREA BY LOWER-LEFT AND UPPER-RIGHT COORDINATES 
REM (X1,Y1)=LOWER-LEFT POINT, (X2,Y2)=UFPER-RIGHT POINT 

REM THE CORNER POINTS CAN BE ARBITRARY BUT COLOR CHANGE WILL BE IN THE 

REM SMALLEST CHARACTER-CELL BOUNDED RECTANGLE THAT INCLUDES THOSE POINTS 
REM Y-COORDINATES MUST BE "UNSCALED” IF SCALE FLAG IS SET: 

IF PEEK(SC) THEN Yi=(Y1+1)#213/254: Y2=(Y2+1) *213/256 

REM COLOR TO BE FOKED IN IS GIVEN BY VARIABLE CC="COMPOSITE COLOR" 

REM WHERE CC=16*eDC + BC CDC=DOT COLOR, BC=BACKGROUND COLOR NUMBERS) 
CC=16*DC+BC 

FOR IX=INT(X1/8) TO INT(X2/8) 
FOR IY#INT(Y1/8) TO INT(Y2/8) 


(Continued on page 80) 
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PROLOG V 


INTRODUCTORY 
preg eee 


ONLY Prolog 





‘ 8 8 


implementing the full Edinburgh Syntax as described hy 
Ctockson and Meilish. Recognized by Japan as providing 
unparalieled opportunity for artificial intelligence. 


Applications: Optional: 


AThe highest level of a heirarchial aType VMLProlog makes possible the 
robotic control system. execution of Al applications previously 
only possible on a mainframe. 
A Machine recognition of natural 


language. A Invisible compilation to a semantic 95 Artitici al Intelligence 
i network Shots eee a pe 69 P si fs 
E t t nd knowledge int t t 
ee a Oo g ea mode and the speed of a rogramming anguage 
isti Examine the . . . 
es a RS a te te Vv | histi d 
A Gia eieniny ah § Soghiaticated Se Pee eteita te Full Prolog as detined in Clocksin 
special DOS, typically 2 gigabytes. 30 days and return & Mellish, Programming in 
7 with disk still sealed WD j 
Eaucational |: «oie sce wiles cstensions for full refund, if not Prolog, Springer-Verlag, Berlin 


Package and deletion, clause indexing, robotic 


control. 


$29. 95 4 Unlimited number of resident and 


(MSDOS) virtual modules, each up to 2 giga- 
bytes in size. 


ey ee Heidelberg New York, 1981. 


Complete documentation with primer 
PHONE ORDERS: 2nd working-program examples. 


(619) 483-8513 Interpreter for IBM PCs® and compatibles 


IBM PC® is a registered trademark of IBM Corporaton. 
me Re ES Ee Se Se Gee ee 


i PAYMENT BNCEOOSED) $n es 

CA residents add 6% sales tax 
iz CHARGE MY: CO) MasterCard OD Visa 
Ry = NO! des Fs ee een Date se 


A A & a A A 


ATHE most cost efficient package in the industry. 
$30-$500 (MSDOS version) Also available for Xenix, Unix, CP/M68K 


aVISA, Mastercard, AMEX 3. 
acallor write for brochure 


al 
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Dr. a wing on th e C-64 (Listing Continued, text begins on page 50) 
Listing Six 


1768 POKE 34752+1xX-4@*1Y,CC 908 REM DRAW FACETS (ACCORDING TO Z DEPTH SINCE NOT CONVEX)? 
1770 NEXT: NEXT: RETURN 918 SYS(GR):SYS(CO):SYS(CL):FOKE BO,1 
1782 : 920 FOR N=@ TO VF:FA=K%(N) 
1799 REM SUBROUTINE TO ADD TEXT TO GRAPHIC SCREEN. 930 IF WI THEN SH(FA)=64 
16@@ REM “RW" AND "CM" ARE THE ROW (@-24) AND COLUMN (@~39) COORDINATES FOR THE 940 XO=PL(FX(FA,@) 2): YO=FL(FY(FA,O) 1): X1=PX(FACFA,1) ,O) s YI=PX%(FA(FA,1), 1) 
1810 REM FIRST LETTER OF THE TEXT STRING TO BE PRINTED. 95Q@ X2=PZ(FU(FA,2) ,O): YZ=P%(FZ(FA,2) ,1) 
1820 REM THE TEXT STRING ITSELF IS ASSIGNED TO “A#". 968 SYS(FC) ,X9,YO,X1,Y1,X2,Y2,SH(FA) 
1830 REM "MD" IS THE MODE FOR THE PRINTING. FIVE MODES ARE ALLOWED: 972 NEXT 
1840 REM 1 - NORMAL ("BLACK" LETTERS ON “WHITE" BACKGROUND) 98@ POKE198,2@ 
1850 REM 2 - REVERSED ("WHITE" LETTERS ON "BLACK" BACKGROUND) 998 GET Af: IF AS="" THEN 992 
1860 REM 3 - SET ("BLACK") LETTERS "OR‘ED" WITH BACKGROUND 1000 SYS(TX):FOKE BO,14:END 
1870 REM 4 - UNSET ("WHITE") LETTERS "“AND‘’ED" WITH BACKGROUND 1210 : 
18682 REM S - SET LETTERS "“XOR‘ED" WITH BACKGROUND 1828 REM VERTEX DATA 
1892 : 1@3@ DATA 1000,618,8, 1000,-618,8, -1000,418,0, -1000,-418,0 
1900 SB=40952: TB=54272:1F (MD AND 1) THEN TB=53248:REM SCREEN AND TEXT BASE ADDR‘S| 194@ DATA @,1000,418, @,1900,-618, @,-1020,618, @,-1000,-4618 
191@ OS=320*RW+8*CM: REM OFFSET FROM CHARACTER SCREEN BASE 1052 DATA 618,@,1000, -618,0,1000, 618,0,~-i10900, -418,0,-1900 
1920 FOKE 56334,FEEM (56334) AND 254:REM DISABLE IRQ TIMER 1062 DATA 618,808,226, 618,0,-236, -618,0,234, -618,8,-236 
193@ POKE 1,PEEK(1)AND 251:REM SWITCH CHARACTER ROM IN 187@ DATA 236,618,0, -2346,618,@, 236,-618,8, -236,-618,8 
194Q L=LEN(AS):FOR N=1 TO 1_:N@=N*8+0S+SB 108@ DATA 0,236,618, @,-236,618, 0,236,-618, 0,-2246,-618 
195@ X=ASC(MID#(AS,N,1))21F X263 THEN X=X-64 1092 DATA 382,382,382, 382,382,-282, 382,-382,382, 382,-382,-382 
1968 TC=TB+8*Xx 11@@ DATA -382,382,382, -382,382,-382, -382,-382,382, -382,-382,-2382 
1972 ON MD GOTO 1980, 1980,1990,2000,7010 1110 : 
1982 FOKE 53231,36:GOTO 2020 1122 REM CONNECTION DATA 
199@ POKE 53231,17:GOTO 2020 1130 DATA @,12,13, @,13,25, @,25,146, @,16,24, @,24,12 
2082 POKE 53231,49:GOTO 2020 1440 DATA 4 412, 26,°>-1, 26,18, 2518/27) .-4:, 27513, 15135,22 
2818 POKE 53231,81 1150. DATA (2515, 14). 2,.14,26, 2, 285175 2,17,29, 2,29,15 
2020 POKE252,N8/256: PO! E251 ,N8-256* INT (NB/256) 1160 DATA 3,14,15, 3,15,31, 3,31,19, 3,19,30, 3,30,14 
2030 POKE254,1TC/254: FOKE2S3 , TC-254* INT (TC/256) 1178 DATA 4,16,17, 4,17,28, 4,28,28, 4,20,24, 4,24,16 
2042 SYS(53221): NEXT 2160 DATA S5,17,14, 5,16,25, 5,25,22, 5,22,29, 5,29,17 
2058 POKE 1,PEEK(1)OR 4:FOKE 54334,FEEK(S5S6334)0OR 1:REM RESTORE TO NORMAL 1192 DATA 6,19,18, 6,18,26, 6,246,721, 6,21,3@, 6,30,19 
206@ RETURN 1208 DATA 7,18,19, 7,19,31, 7,31,23, 7,23,27, 7,27,18 

Laas : 1210 DATA 8,20,21, 8,21,26, 8,26,12, 8,12,24, 8,24,20 
READY. End Listing Six 1220 DATA 9,21,20, 9,28,28, 9,28,14, 9,14,3@, 9,30,21 


123@ DATA 10,23,22, 10,22,25, 10,25,13, 10,13,27, 10,27,23 
124@ DATA 11,22,23, 11,23,31, 11,31,15, 11,15,29, 11,29,22 


Listing Seven READY. End Listing Seven 


m 
1Q@ REM "STELLATION" DRAW A SMALL STELLATED DODECAHEDRON IN VARIOUS ORIENTATIONS Listin Fi ht 
20 REM AND STYLES RICHARD L. RYLANDER 12/5/84 g g 


30 : 
4@ GR=49378 :REM GRAFHICS MODE 82001 2020 ; KEYSORT -— RELOCATABLE BUBBLE SORT USING KEY ARRAY 
5@ TxX=49411 :REM TEXT MODE Q2222 2200 3; POINTING TO INTEGER ARRAY 
68 BO=53288 :REM BORDER COLOR Q@2223 2200 ; 
7@ : 20004 e200 ; RICHARD L. RYLANDER 1/12/85 
8@ REM INITIALIZE A FEW STYLE FARAMETERS 200@5 eaca ; 
9@ POKE 839,1 :REM SCALE (3:4) FOR UNDISTORTED SCREEN DISPLAY 2086 2200 ORIGIN=4CFS9 ; 53081. (FOLLOWING DOS 5.1) 
108 POKE 871,@ :REM FACET EDGE/LINE MODE (@=DRAW, 1=ERASE) 20007 2000 ; ’ 
118 SH=878 :REM SHADE STYLE (@2RANDOM, 1=HALFTONE) @e008 ace KE = $FB ; 251. FOINTER TO KEY ARRAY 
12@ EG=848 :REM EDGES FLAG (@=NORMAL, 1=ADD LINES TO FACET EDGES) ee2e9 ace ZB = $FD ; 253. POINTER TO DATA ARRAY 
130: 140. , , 
2018 2200 MAX = #8 3; 140. FOKE WITH MAX ARRAY INDEX 
14Q REM FUNCTION LOCATIONS mag 2e00 TOP i. oo tat ie, El ete ee 
15@ CL=51979 7REM CLEAR BITMAP @0012 g@o00 TOPDIS = #AD 
14@ CO=52001 :REM FILL COLOR MAP @0213 ge00 FLAG = AE 
178 FC=S52052 :REM DRAW A SHADED FACET 22014 eogo NXTFLG = #61 
1990 : i‘ 
‘ @ " Oo . = os $ 
200 XC=140:YC=120 :REM (SCALED) SCREEN CENTER COORDINATES di sori Pen ee 
218 : - 
228 PRINT" {SC} FEE FEE FEI FE EE FEE FE FEE JE EE EE EE ESE aE de! aaere ares “ Te 
“ “4 Cc " ? 
—— PRINT * SMALL STELLATED DODECAHEDRON « @@02@ CFS9 AQ FF INIT LDY ##FF 3; INITIALIZE KEY ARRAY 
248 PRINT" TFET Te FE HEE FE FE IE EE FE HE RFE Se EEE Ee ee" 22021 CF5B cs INLOOF INY 
25@ PRINT“{CD}<(CD} SELECT SHADING STYLE: " @e022 CFSC 98 TYA 
260 FRINT" R=RANDOM, H=HALFTONE" @@@23 CFSD 91 FB STA (KB).Y 
270 INPUT" {CD} YOUR CHOICE HICL> ¢{CL> C(CLY"5 AF 20024 CFSF cs sc CMP MAX F 
280 POKE SH,@:IF AS="H" THEN FOKE SH,1 @a025 CF41 be Fe BNE INLOOP 
290 PRINT" (CD}<CD} SELECT STYLE FOR DRAWING: " @2024 CFéS . 
3@@ PRINT"{CD)? N - NORMAL":PRINT"{CD) E - EDGES EMPHASIZED" * : 7 ‘ ‘ 
31@ PRINT" (CD) W - WIRE FRAME (HIDDEN \LINES REMOVED) * en noee i: a Ae rae ebie ‘ee 
320 INPUT"{CD} YOUR CHOICE N{CL3{CLI{CL}";As @00279 CF4&7 85 AC STA TOP 
338 FOKE EG,@:WI=@:IF At="N" THEN 360 oease creo A en Lox ee 
350 : ; 
368 PRINT"{CD) READING VERTEX DATA" Gaock Seie . a Loop? toe erecta 
eg ee ee EEREAD. OR TUNG! SR Mar eres 2) EEE @2035 CF71 : GET BOTH BYTES OF INTEGER POINTED TO BY 
: 3 Fhe Sake > 
400 PRINT"{CD? ENTER X, Y, AND Z ANGLES FOR ROTATION" aoog s, . Sao Lee ty wee eeiree Ae. ia rere 
41@ PRINT" (ANGLES IN DEGREES) “ @ge38 CF71 i 
420 INFUT X,Y,2Z 2 
430 J=3.14159265/180: X=X*J:Y=Y"d2Z=Z%*J a6 oe a Ce rant Li 
442 X@=COS(Y) *COS(Z2)-SIN(X) *SIN(Y) #SIN(Z) 2X1=COS(Y) *SIN(Z) +SIN(X) *SIN(Y) #COS (2) ieee. EPs. SickD hee teh 
458 X2=-COS(X) *SIN(Y) : YO=-COS(X) *SIN(Z):Y1=COS (X) *COS (A) : Y2=SIN(X) @0042 CF75 oa hee aos 
468 Z@=SIN(Y) *COS(Z) +SIN(X) #COS(Y) *SIN(Z) @0043- CF74 90 04 Bec LOAD 
478 Z1=SIN(Y) *SIN(Z)-SIN(X) *COS(Y) #COS(Z) : Z2=COS(X) *COS(Y) dasa cere ca bi DEC. NXTFLG 
482 PRINT" {CD} PERFORMING ROTATION" @2045 CF7A E4 FE the seks 
p70. FOR 8 YON Seer @0046 CF7C AB LOAD TAY 
S@Q X=P%(N,Q):V=P%(N, 1) Z=PX(N,2) Ont4s:GETD..61°FD LDA tzB)..¥ 
S1Q PXLIN,Q)=XOeX+X1#Y+X24Z2P X(N, 1) =VYORX+V1*Y+Y 207: PLN, 2) =ZO"X4 Z 1 #Y+22"Z: NEXT @easa Cr7F 48 tah , 
S20 : 
530 FA=60: REM TOTAL NUMBER OF FACETS eeece tree FD a (ZB) -Y 
542 DIM FX(FA/2,2) ,SH(FA/2) ,Z%(FA/2) ,KX(FA/2) Q0051 CFB3 24 41 BIT NXTFLG 
55@ PRINT“ READING CONNECTION DATA " eas? creas Je e4 SPL MODEL 
56@ VF=-1: REM VF = # VISIBLE FACETS e053 CFG? E% a1 Sa TeLG 
57@ FOR N=1 T 
ae ees re @0054 CF89 Cé FE DEC 7B+1 
S90 FOR T2B TO 2 :READ FL(VE,1><NexT gaee eer Ghee 4 MOORE, ey nearer 
6@@ REM CALCULATE COMPONENTS OF NORMAL VECTOR TO DETERMINE VISIBILITY @8057 CFEF eS 62 STA CREAT 
610 Z=(PLCFACVE 2) 0) -PXCFY (VF, 1) 8) ) * (PLC FX (VE) ,1)-PX(FXLCVE,1) 41)? euase cFo1 22 pala 
620 2=2-(P%(FXCVE ,@) ,O)—PXLCFZL CVE 1) ,O)) #(PX (FX (VE,2) 1) -PXCFXCVE, 1), 1) e0es9 CF92" os 43 a 
63@ IF Z=<@ THEN 72@:REM FACET NOT VISIBLE, GO ON eee Grea EB fae CRRNT Hd 
640 X=(P%(FX CVE, 2) 1) -PX (FX (VE 1) 41) (PY CFL CVE ,Q) 52) -PX(FXCVF, 1) 2)? Geigks C08. Be Ga N 
65O XeX- (PX (FZ (VEO) 1) PX CFL CVE 1) 1) (PK (FY (VE, 2) 42) PX (FX CVE, 1) 27) eben. cor : Be: ET TNE 
668 Ye(PL(FACVF,2) ,2)-PX(FX (VF, 1) ,2)) #(PX( FZ (VE, 8) ,Q)-PX (FX CVE, 1) ,8)) Be eee oy 
678 Y=Y~(PL(FL CVE ,O) 52) FX (FZ (VF 1) 2) * (PX (EX (VE, 2) 5) PX (FXCVE, 1) @)) Gua. ieee § COMPARE INTEGERS OBTAINED THROUGH KEY ARRAY 
68@ NC=SOR (X#xX+Y*#¥+Z*Z):REM LENGTH OF NORMAL VECTOR sone 4 i 1F CURSENT 7° NEXT”. THEN SWAP KEY. 
AGB QLLYraecaatrees nev) ac a = 3 ELEMENTS, ELSE CONTINUE 
7@@ SH(VF) =(SH(VF) +64) ®(SH(VF) +64) /254:REM RAISED COSINE SHADING enee? cre? ch“ prinkit cis tree 
71@ GOTO 73a = 
wens ue 4 @@068 CF99 648 PLA 
aa Mee @8@69 CFIA ES 43 SBC CRRNT+1 
A tes @@a7@ CFSC Se a2 BVC TEST 
75@ PRINT" SCALING TO DISPLAY SIZE" G0e71 CFSE $7. 808 EOR #560 
76@ Y=@:FOR N=@ TO VN-1:IF ABS(P%(N,1))>Y THEN Y=ABS(P%(N,1)) anars “ate et TEST  BPL NOSWAP 
778 NEXTsS=119/¥ @@874 CFA3 rv ahd TAY 
788 FOR N=@ TO VN-1:P%(N,1)=S#PX%(N, 1) +YC:PX%X(N,@) =S¥P% (N.@) +#XCz NEXT 
oe , ’ , , “ @@075 CFA4 86 AD STX TOPDIS 
8@2 REM FIND AVERAGE Z FOR EACH FACET cone Cras bi FB Ce: By 
e18 FoR nee 70 vr aoe eee 8 re 
820 Z%(N) =(P%(FXIN,@) 2) +PX(FX(N, 1) .2) +PX(FX(N.2) 2) /3z 
a 1), s1), 12) ,2))/32 NEXT year can a FB LDA (KB) ,Y 
84@ PRINT” SORTING FACETS ACCORDING TO AVG ‘2° " @0061 CFAD 91 FB ab ein. % 
85@ POKE 140,VF , 
862 K%(O)=K%(Q):POKE 251,PEEK(71):POKE 252,PEEK(72) pra ah = ae 
670 2%(@)=Z%(@):POKE 253,PEEK(71):POKE 254,PEEK (72) 
ee Re ce ’ ’ @@084 CFBI 91 FB STA (KB),Y 
6890 : 
(Continued on page 82) 
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FORTH: FOR Z-80®, 8086, 68000, and IBM® PC 
Complies with the New 83-Standard 

GRAPHICS e GAMES - COMMUNICATIONS e ROBOTICS 

DATA ACQUISITION e PROCESS CONTROL 


@ FORTH programs are instantly FORTH Application Development Systems 


portable across the four most popular 
microprocessors. 

@ FORTH is interactive and conver- 
sational, but 20 times faster than 
BASIC. 

@ FORTH programs are highly struc- 
tured, modular, easy to maintain. 

@ FORTH affords direct control over 
all interrupts, memory locations, and 
i/O ports. 

@ FORTH allows full access to DOS 
files and functions. 

@ FORTH application programs can 
be compiled into turnkey COM files 
and distributed with no license fee. 

@ FORTH Cross Compilers are 
available for ROM’ed or disk based ap- 
plications on most microprocessors. 


Trademarks: IBM, International Business Machines 
Corp.; CP/M, Digital Research Inc.; PC/Forth+ and 
PC/GEN, Laboratory Microsystems, Inc. 


include interpreter/compiler with virtual memory 
management and multi-tasking, assembler, full 
screen editor, decompiler, utilities and 200 page 
manual. Standard random access files used for 
screen storage, extensions provided for access to 
all operating system functions. 


Z-80 FORTH for CP/M® 2.2 or MP/M II, $100.00; 
8080 FORTH for CP/M 2.2 or MP/M Ii, $100.00; 
8086 FORTH for CP/M-86 or MS-DOS, $100.00; 
PC/FORTH for PC-DOS, CP/M-86, or CCPM, 
$100.00: 68000 FORTH for CP/M-68K, $250.00. 


FORTH + Systems are 32 bit implementations 
that allow creation of programs as large as 1 
megabyte. The entire memory address space of 
the 68000 or 8086/88 is supported directly. 


PC FORTH + $250.00 
8086 FORTH + for CP/M-86 or MS-DOS $250.00 
68000 FORTH + for CP/M-68K $400.00 


Extension Packages available include: soft- 
ware floating point, cross compilers, INTEL 
8087 support, AMD 9511 support, advanced col- 
or graphics, custom character sets, symbolic 
debugger, telecommunications, cross reference 
utility, B-tree file manager. Write for brochure. 







Circle no. 55 on reader service card. 


An Optimizing, hassle-free 
C Compiler for the 8086-8088. 


Ecosoft’s Eco-C, the performance leader among full C 

compilers for the Z80, is now available for the 8086- 

8088 running under MSDOS (2.0 or later). Eco-C has 

features not found in any other 8086-8088 C compiler. 

| | * Over 100 library functions. Since they follow UNIX standards, your 
| 

















programs are highly portable in “both” directions (“up’’ to a UNIX 
machine or ‘“down’’ to our Z80 compiler). This means new markets 
| for your software at minimum development cost. 
* Asingle library. No more “dual” libraries and trying to remember 
what has to be linked with what. Your programs automatically take 
advantage of an 8087 if one is present at runtime. 
* A single floating point answer. No more “fuzzy floating point”: 
your programs produce the same answers whether the floating point 
is done in hardware (8087) or software. 
* Error messages in English. No more cryptic numbers to look up. We 
tell you where the error occurred, what was found there, and what 
should have been there. 
* Strict syntax parsing. LINT is going to uncover fewer surprises 
because our parser looks hard at the details. 
* Efficient code. The optimizer pass of the compiler generates 
assembler code in Intel mnemonics that rivals that produced by 
compilers costing twice as much. 


The price of the Eco-C compiler is $250.00 (all 
versions), including the user’s manual, and is designed 
for use with Microsoft’s MASM (or compatible) assembler 
and linker. When ordering, please specify disk format 
and whether you want the Z80-CP/M or 8088-MSDOS 
Indianapolis, IN 46220 


version of Eco-C. 
LTE eet la) ss 
(317) 255-6476 wa 
ECOSOFT INC. 


Ecosoft Inc. 
Eco-C (Ecosoft), MSDOS (Microsoft), UNIX (Bell Labs), CP/M (Digital Research), Z80 (Zilog), 8086, 8087, 8088 (Intel). 
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am iy Post Office Box 10430, Marina del Rey, CA 90295 3s 
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COMPLETE SOURCES 
NO ROYALTIES 


COMPREHENSIVE C Power Packs 
include over 1000 functions which 
provide an integrated environment 
for developing your applications ef- 
ficiently. ‘‘This is a beautifully doc- 
umented, incredibly comprehensive 
set of C Function Libraries. ”’ 

— Dr. Dobb’s Journal, July 1984 


USEFUL “‘...can be used as an ex- 
cellent learning tool for beginning C 
Programmers...’ 

— PC User’s Group of Colorado, Jan. 1985 


FLEXIBLE Most Compilers and all 
Memory Models supported. 


RECOMMENDED ‘“‘l have no hesita- 
tion in recommending it to any pro- 
grammer interested in producing 
more applications code, using more 
of the PC capabilities, in much less 
time.”’ — Microsystems, Oct. 1984 


PACK 1: Building Blocks | $149 
DOS, Keyboard, File, 
Printer, Video, Async 


PACK 2: Database $399 
B-Tree, Virtual Memory, 
Lists, Variable Records 


gy PACK 3: Communications $149 
Smartmodem™, Xon/Xoff, 
X-Modem, Modem-7 


mg PACK 4: Building Blocks Il $149 
Dates, Textwindows, Menus, 
Data Compression, Graphics 


gy PACK 5: Mathematics | $99 
Log, Trig, Random, 
Std Deviation 


PACK 6: Utilities | $99 

(EXE files) 

Arc, Diff, Replace, Scan, Wipe 
-Master Card/Visa, $7 Shipping, Mass. Sales Tax 5% 

ASK FOR FREE DEMO DISKETTE 


NOVUM BE SOFTWARE 
ORGANUM HORIZONS 
INC. @ inc 


165 Bedford St., Burlington, MA 01803 
(617) 273-4711 
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Listing Eight 


@0@85 CFBS E& AE INC FLAG 

@@@86 CFBS £4 AC NOSWAFP CFX TOP 

@@@87 CFB7 D@ Bs BNE LOOF2 

@@@88 CFB9 AS AE LDA FLAG 

@@@89 CFBB D@ As BNE LOOP1 

@@@92 CFBED : 

@2091 CFBD 3 UNPACK THE BYTE ELEMENTS OF THE ‘KEY’ ARRAY 

@8292 CFBD 3; INTO BASIC’S NORMAL 2~BYTE INTEGER FORMAT 

@@093 CFBD 3 

2@@94 CFBD Aé ec UNFACK LDX MAX 

@@295 CFBF €E8 INX 

@@@96 CFC@ CA PKLOOP DEX 

@0297 CFCi BA TXA 

@8098 CFC2 as TAY 

@8@99 CFCS 61 FB LDA (KB) ,Y 

@0100 CFCS 48 FHA 

@@1@1 CFCS BA TXA 

@@1@2 CFC7 @A ASL A 3; MOVE TO 2*I+1 

@2@1@3 CFCS 29 @1 ORA #1 = 

2184 CFCA 928 04 BCC STORE 

@@i@5 CFCC €E6 41 INC NXTFLG 

@@1@6 CFCE E4 FC INC KB+1 

@2107 CFD As STORE TAY 

@@1@8 CFDi1 68 FLA 

@0189 CFD2 91 FB STA (KB) ,Y 

@0119 CFD4 AS ao LDA #2 

@@iii CFDS es DEY 

@@112 CFD? 91 FB STA (KB) ,Y 

@@113 CFD9 AS 41 LDA NXTFLG 

@@114 CFDB FQ 04 BEQ OK 

@@115 CFDD Cé 41 DEC NXTFLG 

@@116 CFDF Cé FC DEC KB+1 

@0117 CFE1 BA OK TXA 

@@118 CFE2 banc BNE PKLOOP 

@@119 CFE4 62 DONE RTS 

@@12@ CFES . END 

ERRORS = @20a0 

SYMBOL TABLE 

SYMBOL VALUE 
CRRNT 2242 DONE CFE4 FLAG Q@AE GETINT CF71 
INIT CFS9 INLOOP CFSB KB QQFB LOAD CF7C 
LOOP1 CF45 LOOF? CF4F MAX @@8c NODEC CFB 
NOSWAP CFBS NXTFLG @@61 OK CFE1 ORDER CF97 
ORIGIN CFS9 FKLOOF  CFCO REPEAT 264 SORT CF43 
STORE CFD@ SWAF: CFA2 TEST CFAQ TOF Q@@aAc 
TOFDIS agaAD UNFACK  CFBD 75 QOFD 

* e e 

END OF ASSEMBLY End Listing Eight 


Listing Nine 


@8001 
@8262 
Q@8823 
02084 
Q02a5 
@Q226 
0007 
22008 
@B0a9 
02212 
@Q@i1 
@212 
G8013 
@2014 
@2015 
@0016 
8017 
2018 
Q@8219 
20022 
@2021 
88822 
@8023 
82024 
Q@8825 
28826 
008827 


ERRORS 


SYMBOL 


SYMBOL 
LOOP 


END OF 


9220 3 “WRITE” RICHARD L. RYLANDER 
8200 ; 12/30/84 
2200 3; REVISED 1/19/85 —- ORIGIN MOVED TO $CFES (53221.) 
2220 ; 
2200 3; PUT TEXT CHARACTERS ON GRAFHIC SCREEN 
8220 3 (UNDER BASIC ROM) IN VARIOUS STYLES 
220 : 
S200 *=$CFES 3; PUT CODE AFTER DOS 5.1 
CFES AS @1 WRITE LDA #01 3; SWITCH OUT BASIC ROM 
CFE7 29 FE AND #4#FE 
CFE9 85 @1 STA $01 
CFEB A@ @7 LDY #7 
CFED Bi FD LOOP LDA (#FD),Y 3; READ CHARACTER BYTE 
CFEF -31 FB AND (#FB),Y 3 MODIFY W/SCREEN BYTE 
CFFi 91 FB STA (FB),Y 3; STORE IN SCREEN 
CFFS 3 
CFFS 3; POKE NEW LOGICAL OPERATOR TO REPLACE 
CFFS 3; ‘AND’ (53231.) FOR DIFFERENT STYLES 
CFFS 3; ORA=17. BIT (NOF)#=346. AND=49. EOR=81. 
CFFS 5 
CFF3 88 DEY 
CFF4 10 F7 BPL LOOP 
CFF& AS O1 LDA $@1 ; RESTORE BASIC ROM 
CFFS 29 @1 ORA #1 
CFFA 85 @O1 STA #01 
CFFC 698 RTS 
CFFD - END 
= 22020 
TABLE 
VALUE 
CFED WRITE CFES 
ASSEMBLY 


End Listings 









Fortran Scientific Subroutine Package 
Contains Approx. 100 Fortran Subroutines Covering: 









1. Matrix Storage and Operations 7. Time Series 

2. Correlation and Regression 8. Nonparametric Statistics 
3. Design Analysis 9. Distribution Functions 
4. Discriminant. Analysis 10. Linear Analysis 

S. Factor Analysis 11. Polynomial Solutions 

6. Eigen Analysis 12. Data Screening 






Sources Included 


$295.00 









FORLIB-PLUS™ 


Contains three assembly coded LIBRARIES plus support, 
FORTRAN coded subroutines and DEMO programs. 


The three LIBRARIES contain support for GRAPHICS. 
COMMUNICATION, and FILE HANDLING/DISK SUPPORT. An 
additional feature within the graphics library is the capability of one 
fortran program calling another and passing data to it. Within the 
communication library, there are routines which will permit interrupt 
driven, buffered data to be received. With this Capability. 9600 
BAUD communication is possible. The file handling library contains 
all the required software to be DOS 3.0 PATHNAME compatible. 


STRINGS & THINGS™ 


Support for CHARACTER MANIPULATION (string support), 
SHELL, BATCH, MUSIC, CMD LINE, and ENVIRON CTRL. 


$69.95 each 




















P.O. Box 2517 | ALPHA 
Cypress, CA 90630 FW mm S?%%4'S? (714) 894-6808 
California residents, please add 6% sales tax. 


Versions available for IBM Professional Fortran 
or MICROSOFT 3.2 Fortran 








Circle no. 1 on reader service card. 


82 


C Source Code 
RED 


Full Screen Text Editor 
IBM PC, Kaypro, CP/M 80 and CP/M 68K systems. 


° RED is fast! RED uses all of ¢ RED comes with a Reference 
your terminal’s special func- Card and a Reference Manual 
tions for best screen response. that provides everything you 
RED handles files as large as need to use RED immediately. 
your disk automatically and © RED is unconditionally 
quickly. guaranteed. If for any reason 

¢ RED is easy to use for writers you are not satisfied with RED 
Or programmers. RED’s com- your money will be refunded 
mands are in plain English. promptly. 


¢ RED comes with complete 
source code in standard C. RED: $95 


RED has been ported to main- 
frames, minis and micros. Manual: $10 


Call or write today for 
for more information: 


ALY A Edward K. Ream 

edward k pent 1850 Summit Avenue 

| Madison, WI 53705 
(608) 231-2952 





To order: 


Either the BDS C compiler or the Aztec Cll compiler is required for CP/M80 
systems. Digital Research C compiler v1.1 is required for CP/M 68K systems. No 
compiler is required for IBM or Kaypro systems. 


Specify both the machine desired (IBM, Kaypro or CP/M) and the disk format 
described (8 inch CP/M single density or exact type of 5% inch disk). 


Send a check or money order for $95 ($105 U.S. for foreign orders). Sorry, I do 
NOT accept phone, credit card, or COD orders. Please do not send purchase orders 
unless a check is included. Your order will be mailed to you within one week. 


Dealer inquiries invited. 
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JOIN US 
AT NCC'SS 





Today's Access Code 
to Tomorrow's Technology. 





Featuring Keynote Speaker Admiral B.R. Inman. 
NCC '85, July 15-18, Chicago, Illinois. 





The “Leading Edge” conference... 


Don't miss the 1985 National Computer 
Conference, July 15-18 at McCormick Place 
and McCormick Place West, Chicago, Illinois, 
a key industry forum for new product and 
services introductions. 


NCC '85 features a Keynote Address by 
Admiral B.R. Inman, President and CEO of 
Microelectronics and Computer Technology 
Corporation of Austin, Texas. 


His topic, ‘Managing the Creation and 
Commercialization of Technology” will 
deal with the industry-wide challenge of 
converting technical advances into com- 
mercial successes. 


A challenge everyone in the information 
technology field faces. 


More than just a trade show... 


At NCC’85 you get more than just exhibits. 
You can attend informative Technical 
Sessions on subjects such as artificial intel- 
ligence and software systems. You can also 
attend Professional Development Seminars, 
and special events like Pioneer Day and our 


Technology's Expanding Horizons 


Name 


Early Bird Reception. Plus, you can explore, 
experience and exchange ideas while 
gathering important information for future 
buying decisions. 

Top names in the industry will be there— 
like IBM, Cullinet and McGraw Hill—show- 
casing their latest innovations and hottest 
new developments. 


Whatever your special interest or area Of 
expertise, you'll find the state-of-the-art in 
hardware, software and services at NCC ''85! 


Tomorrow's technology is just a 
phone call away... 


To attend NCC'85 all you have to do is pick 
up the phone and call toll-free 800-NCC-1985. 
(Or fill out the Coupon below.) And, if you 
register early, you get a $25 discount on the 
Full Conference Registration fee! 

Don't miss this opportunity to be on the 
“Leading Edge.” Plan on attending NCC '85! 


CALL TOLL-FREE 800-NCC-1985 
(Or fill out the coupon below.) 


1985 National Computer Conference 


O Yes! | want to attend NCC ''85. Please send me a registration form today! 





Title 





Company 





Address 





City 


Mail to: NCC '85 - 1899 Preston White Dr. - Reston, VA 22091 


State Zip 


TB 


OR CALL TOLL-FREE 800-NCC-1985 AND REGISTER TODAY! Visa, MasterCard, and American 
Express accepted. Register early and save $25! 


Circle no. 5 on reader service card. 


A Compiler Written in Prolog 





by G. A. Edgar 


hy would anyone write a 
WV comrite in a language 
like Prolog? Actually, the 


compiler seems to have come out 
rather well. I wrote it primarily as 
a learning exercise for Micro- 
PROLOG. 


Micro-PROLOG 

I first heard of the Prolog program- 
ming language in connection with the 
Japanese effort to develop the ‘“‘fifth 
generation” in computing. At the 
time, I read a few things about Pro- 
log, such as the book by Clocksin and 
Mellish.! My impression was that 
Prolog is an interesting language (I 
was right), but that it probably is not 
practical to implement PROLOG on a 
microcomputer (was I ever wrong!). 


substantial effort for a programmer 
experienced only in Pascal, C, or PL/ 
I. The tutorial? is published separate- 
ly as a book; if you are curious, it 
should be available in most large uni- 
versity libraries. 

After I began to get a feel for the 
language, I used it to solve a few logic 
puzzles. For example, Lewis Car- 
roll’s logic book? includes some puz- 
zles at the end as a teaser for a later 
book that was never published. They 
are much too complicated to solve 
simply by common sense reasoning, 
but I can now say definitively that 
‘‘All of the Monitors are awake.” 

If Prolog were good only for logic 
problems, it would not be of wide in- 
terest. So I looked around for some 
other relatively easy task to use as a 





The early returns on our March special issue on 
Prolog are encouraging—so much so that we’re 
offering this excursion into programming in logic. 





D. E. Cortesi, in “‘Dr. Dobb’s Clin- 
ic” for May 1984, gave a half-page 
description of Micro-PROLOG. I 
wrote for information on it and by 
July was running it on my CP/M Z80 
computer. Micro-PROLOG is also 
available for MSDOS, PCDOS, CP/ 
M-86, and Unix. 

Micro-PROLOG comes with an 
IBM PC-size loose-leaf manual with 
more than 200 pages. This is a com- 
plete reference to the language but 
not a good tool for learning. Micro- 
PROLOG, however, also comes with a 
400-page soft-cover tutorial, which is 
a good place for a beginner to start. 
Learning the language will take a 





G. A. Edgar, 107 W. Dodridge St., 
Columbus, OH 43202 


programming exercise. A compiler 
for VALGOL fit the need nicely. It 
improved my understanding of Mi- 
cro-PROLOG and my understanding 
of what a compiler does. 

This compiler is described below. 
It translates VALGOL I, also de- 
scribed below, into 8080 assembly 
language. Of course, you would learn 
more by undertaking such a pro- 
gramming project yourself than you 
will by examining mine, but it serves 
as proof that you can use Micro- 
PROLOG for something unexpected. 


Using Micro-PROLOG 

Before I describe the compiler, let me 
give a brief description of how Micro- 
PROLOG differs from other versions 
of Prolog. 
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Upper- and lower-case letters are 
considered different, and the hyphen 
is treated like a letter. Variables are 
X, Y, Z, Xx, y, Z, or one of these six 
letters followed by a positive integer, 
such as X132 or z22. Other strings of 
letters and numbers are identifiers 
for constants. 

Micro-PROLOG consists primarily 
of a pattern matcher, plus a few other 
built-in routines, such as a routine for 
I/O. The way Micro-PROLOG looks 
depends on which of the front ends 
you are using. Each front-end pro- 
gram is written in Prolog. If you are 
using the SIMPLE front end, one- 
place predicates can be given either 
in prefix form 


alphanumeric(X ) 
or in postfix form 
X alphanumeric 


Two-place predicates can be given ei- 
ther in prefix form 


LESS(@ X) 
or in infix form 
@ LESS X 


Predicates with three or more argu- 
ments must be in prefix form. Thus, a 
Prolog program entered via SIMPLE 
tends to look like this: 


labelused (0) 

X alphanumeric if X alphabetic 

X alphanumeric if X digit 

X alphabetic if @ LESS X and X 
LESS [ 

X alphabetic if‘ LESS X and X 
LESS { 


One useful object in Micro-PRO- 
LOG is the list. The notation for a list 
is to enclose the items between paren- 
theses: (A B C 1 2 3). Some of the 
items might be lists themselves: (A 
(BC) 2.3): 

The 16-bit versions of Micro-PRO- 
LOG include a front-end supervisor 
that imitates the DEC-10 Prolog: 


labelused(0). 
alphanumeric(X) :- alphabetic (X). 
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alphanumeric(X) :- digit(X). 


The form in which an operator is used 
is declared using the types fx, xf, xfy, 
and so on (see Clocksin and Mellish, 
page 91). DEC-10 lists are built using 
square brackets: [a,b,c]. 

The standard Micro-PROLOG syn- 
tax simply uses lists. In this regard, it 
is somewhat like LISP. The list 
(labelused 0), which indicates the 
predicate name “‘labelused” applied 
to the argument “0,” is an example of 
an atom. A clause is a list of atoms. 


You add things to the data base in 
this way: 


((labelused 0)) 
((alphanumeric X) (alphabetic X)) 
((alphanumeric X) (digit X)) 


This may seem confusing at first, but 
after a while it becomes more or less 
routine. 

This minimal introduction to the 
Micro-PROLOG interpreter should 
be enough for you to gain some un- 
derstanding of the VALGOL compil- 


@ We have over 300 
complete, tested, and, documented functions. 


All source code and demo programs are included. 


@ The library was specifically designed for software 
development on the IBM PC, XT, AT and compatibles. There are no royalties. 


@ Over 95% of the source code is written in C. Experienced programmers 
can easily “customize” functions. Novices can learn from the thorough comments. 


We already hare the functions you are about to wute 


Concentrate on software development— not writing functions. 


THE C UTILITY LIBRARY includes: 


@ Best Screen Handling Available ¢ Windows @ Full Set of Color Graphics 
Functions e Better String Handling Than Basic ¢ DOS Directory and File Man- 
agement @ Execute Programs, DOS Commands and Batch Files Complete 
Keyboard Control ¢ Extensive Time Date Processing @ Polled ASYNC 
Communications ® General DOS BIOS gate e Data Entry e And More e 


@ The Library is compatible with: Lattice. Microsoft, Computer Innovations, Mark Williams 
and DeSmet. Available Soon: Digital Research, Aztec and Wizard. 


C Compilers: Lattice C—$349, Computer Innovations C86 — $329; Mark Williams C — $449. 


C UTILITY LIBRARY $185. Special prices on library & compiler packages. 


Order direct or through your dealer. Specify compiler when ordering. Add $4.00 shipping for 
UPS ground, $7.00 for UPS 2-day service. NJ residents add 6% sales tax. Master Card. Visa, 


check or P.O. 


ESSENTIAL SOFTWARE, INC 
P.O. Box 1003 Maplewood, New Jersey 07040 914 762-6605 





Circle no. 36 on reader service card. 


85 


er, but you will need a much more 
complete knowledge of Micro-PRO- 
LOG to understand all of the details. 


VALGOL I 
The language VALGOL I (very small 
ALGOL?) is a derivative of ALGOL- 
60. D. V. Schorre described it in 1964 
as a sample language for the compil- 
er-writing language META II. His 
paper* was reprinted in Dr. Dobb’s 
Journal (April 1980), which is where 
I found it. I had worked with VAL- 
GOL I in connection with the compil- 
er-writing language Meta4 (in a 
SIG/M disk), so it seemed natural to 
use it for the same thing in Prolog. 

VALGOL I has a few peculiarities. 
The keywords that usually are type- 
set in boldface here are preceded by a 
period ( .begin, .end, .if, .then, .else, 
.until, .do, .integer). This also applies 
to the equals sign for comparing two 
expressions ( .= ). VALGOL I has 
only one data type, namely .integer, a 
16-bit two’s-complement number. 
The assignment statement is the re- 
verse from the normal order (5 =: x 
assigns the value 5 to x ). Arithmetic 
allows addition, subtraction, and 
multiplication, but there is no unary 
minus sign, so if you want —2 you 
must write either 0 — 2 or 65534. 

A more complete description of the 
syntax appears below in the descrip- 
tion of the compiler. 


Using the VALGOL | Compiler 

The VALGOL I compiler is in a file 
called VALGOL.LOG. A typical use, 
to compile the short VALGOL pro- 
gram in the file PVAL, is shown in 
Listing One (page 89). The com- 
mand shown is in the standard Mi- 
cro-PROLOG syntax. If the SIMPLE 
front end is also loaded, you could use 
the command: 

is(“P.VAL” compile “P.ASM”’) 

The compiler prints out the input file 
P.VAL on the console as it works. The 
result of the compilation in the sam- 
ple is PASM, included here as Listing 
Four (page 96). 

If you are familiar with the Intel 
mnemonics for the 8080, you may 
find it instructive to compare the 
VALGOL input with the assembly 
language output to see how the com- 
piler works. 
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The VALGOL Definition 

Take a look at the compiler in Listing 
Two (page 90). I have repeated part 
of the compiler using the SIMPLE 
syntax in Listing Three (page 96). 
SIMPLE is unsuitable for the com- 
plete listing for several reasons. In a 
few places in the compiler, I have 
used “meta-variables,” which are not 
supported by SIMPLE. A SIMPLE 
listing also would not keep the com- 
ments and the formatting, making it 
confusing to read. So try to under- 
stand instead the list notation used 
for the standard syntax of Micro- 
PROLOG in Listing Two. 

The lists preceded by a ? are to be 
executed immediately when they are 
loaded; the others are to be stored in 
the data base. Because the predicate 
symbol ( / * ) is a special one that is 
always true, a list in the file of the 
form 

2(( / * anything goes here )) 
will serve as a comment. (This is a 
clumsy feature of Micro-PROLOG. ) 

The compiler listing is in two parts. 
The first part is independent of the 
particular syntax of VALGOL I and 
could be used equally well with many 
other programming languages. The 
second, below a horizontal line, is a 
VALGOL-specific part. In one sense, 
the part above the line implements an 
interpreter that runs the compiler de- 
scribed below the line. Let’s examine 
a portion of the VALGOL-specific 
part of the code. 

The message line, like all these 
lines, becomes a statement in the Pro- 
log data base. The predicate symbol 
of the statement is “message,” and 
the single argument is the string en- 
closed in quotation marks. The com- 
piler will look for a message fact in 
the data base and print it out when a 
compilation starts. 

The next line is the syntax line. 
This tells the compiler that the pri- 
mary unit of syntax is the program. 

The next statement is a description 
of a program. First comes the keyword 
.begin. When this is matched, seven 
opening lines are sent to the output file. 
(I have put the VALGOL syntax de- 
scription on the left-hand side of the 
page and the ASM output description 
on the right-hand side. A VALGOL I 
compiler for another processor would 


keep the same left-hand side and 
change the right-hand side.) Then an 
opt-declaration (optional declaration, 
see below) is followed by one or more 
statements separated by semicolons. 
The multiple predicate allows match- 
ing of its arguments zero or more times. 
Finally comes the keyword .end. When 
this is matched, the final JMP is insert- 
ed in the output file, followed by the 
four subroutines and the stack space. 

The opt-declaration could be a dec- - 
laration followed by a semicolon, or (if 
that cannot be found) it could be emp- 
ty, which matches the input file auto- 
matically. Inclusion of the “empty” al- 
ternative is a way to allow for no 
declaration. A declaration is the 
keyword .integer, followed by one or 
more identifiers separated by commas. 
For each identifier, the output file re- 
serves a two-byte storage location. 

A statement is one of the following: 
(1) An I/O statement, either 


edit( expression , ‘string’ )) 


which will send (expression) spaces 
and then the (string) to the console, 
or 


print 


which will send an end-of-line to the 
console. 
(2) An assignment statement: 


expression =: variable 
(3) A loop: 


.until expression 
.do statement 


A value of zero for the expression is 
considered false, and a nonzero value 
is true. 

(4) A conditional statement: 


.if expression 
.then statement 
.else statement 


The .else is not optional. 

(5) A block, which consists of the 
keyword .begin, followed by an op- 
tional declaration, followed by zero 
or more statements separated by 
semicolons, followed by the keyword 
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Were gett 





hardnosed 
ay. 


From now om MATIS ‘is only $4995! 


(MATIS, the complete User Interface development tool has been selling for $150.) 


Why the radical price cut? 
We decided after looking over the compe- 
tition that MATIS had so many advan- 
tages it should be made available to more 
programmers. We decided to compete 
aggressively so you could easily afford to 
have MATIS in your bag of tricks. We 
hear from MATIS users in the USA and 
France that it is a truly loveable product. 
Sooo...we’re running this big ad to pro- 
mote our new low price. 


MATIS windows are beautiful. 
Display any portion of any screens you 
create at any point in your program. 
Scroll in any direction manually with cur- 
sor keys...or automatically. 


And the screens are 
HUMUNGEOUS! 

MATIS screens can be just about as big as 
you want...up to 65,534 rows by 
65,534 columns! The number of screens 
is only limited by available memory. 


Print big MATIS screens directly. 
One command sends your screens to your 
printer with no need to program special 
routines when your virtual screen is big- 
ger than your terminal screen. 


User input fields are a snap. 
Creating fields for data entry is easy with 
no limit to size or number by screen. 
Request for input 

separately or 

in DIOcKS. yy 





Copies of MATIS at $49.95 plus 
$3 shpg. 


Copies of MATIS/T for TURBO 
PASCAL at $29.95 plus $2 shpg. 


California residents, add 614% sales tax 








(_] | like to read specs, so 
send me a folder. 





Total $ 






Denis Moran 
President, Softway, Inc. 


Control your keyboard 

with MATIS. 

It Keeps track of keys that are pressed 
during the execution of your program 
and lets you assign specific functions to 
selected keys. 


Control that screen too! 

MATIS is extremely versatile and flexible 
when it comes to controlling lines, col- 
umns, fields, and text. They can be modi- 
fied, transferred, displayed or moved 
with a single command. All video attri- 
butes are supported: color, reverse video, 
blinking...you name it, you got it. 


Want an interactive 

screen builder? 

You've got it with MATIS. It’s called 
“MATPAGE”™ and it lets you create 
and modify any of your screens in an 
interactive mode. 


Softway, Inc. 





24-Hour Credit Card Orders By Phone: 


“4 (800) 227-2400 EXT 989 1 cotton: (800/772-2666 ExT 369 


Please ship the foliewing at once. | understand there is a 30-day money back guarantee. 


MATIS adds over 70 routines 

to your program. 

Written in Assembler, MATIS routines 
are fast and powerful giving your pro- 
gram improved efficiency and enhanced 
visual appeal, while they reduce its size 
and maintenance worries. And MATIS 
separates screen design from the core 
of your program. 


MATIS is unique. 
We don’t think there's a single program 
that combines as many tools in one 
package as completely or as well as 
MATIS. It interfaces with Intepreted and 
Compiled BASIC (Microsoft), C (Lattice, 
Microsoft, Aztec), PASCAL (IBM, Micro- 
soft) and ASSEMBLER. All you need 
is an IBM* PC/XT or true compatible 
under DOS, 128k or RAM, monochrome 
or color monitor. 

You get an easy to follow no-frills 
manual and a 30-Day Money Back 
Guarantee. 


Late News: 
MATIS/T"™ for TURBO-PASCAL** 
only $29.95 


An indispensable add-on at a dynamite 
price. What more can we say? 


_ Decu's 


Denis Moran 


™ MATIS, MATIS/T, & MATPAGE are Trademarks of Softway, Inc. 
*IBM is a Reg. Trademark of IBM Corp. 
**Turbo Pascal is a Reg. Trademark of Borland International 


500 Sutter Street, Suite 222 E 
San Francisco, California 94102 
(415) 397-4666 


IN RIT Ce a a a a ha a we 


Address (please no P.O. Box) 
City/State/ZIP 


Phone 





Signature 


Make payment by money order, check, or charge card LJ visa L] MASTER CARD 


Number 


Exp. 


Distributed in Europe By: MICRO APPLICATION SOFTWARE ¢ 147 Avenue Paul Doumer, 92500 RUEIL MALMAISON FRANCE, Tel (1) 732.92.54 
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.end. The null statement 
.begin .end 


is allowed. 
The following test for equality is 
allowed: 


expression .= expression 


This has value 1 if true and 0 if false. 
Expressions can be built up from 
variables, numbers, the operations 
+,-, *, and parentheses. Notice how 
the syntax near the end of Listing 
Two is arranged to take into account 
the precedence of these operations. 


The Language-Independent Part 
Now let’s look at the first part of 
Listing Two (part of this is repeated 
in SIMPLE syntax as Listing Three). 
When Micro-PROLOG attempts to 
verify a compile atom, it looks first in 
the data base for a message fact; if it 
finds one, it verifies the assertion (P 
x), which is always true but which 
has the side effect of printing x on the 
console. The assertion PP is also al- 
ways true and starts a new line at the 
console. The compile atom continues 
as it prints X —> Y, where X is the 
first argument (presumably the file- 
name of the VALGOL input file) and 
Y is the second argument (the ASM 
output file). 


aueie” G8QO( Saran 


Tools 
68000/68010 Assembler Package 


Assembler, linker, object librarian and extensive indexed 
typeset manuals. 


Conforms to Motorola structured assembler, publication 
M68KMASMI4]. Macros, cross reference and superb load 
map, 31 character symbols. 

Optimized for CP/M-80, -86, -68K, MS-DOS, PC-DOS . . $595 
Portable Source written in ‘“‘C” 


Complete 68000 Development Package 
for MS-DOS 
Lattice 68000 ‘“‘C” Compiler and 
Quelo 68000 Assembler Package ............... $1095 


68200 Assembler Package 
Assembler and linker for Mostek MK68200. 


Optimized for CP/M-80, MS-DOS, PC-DOS 
For more information contact Quelo Inc. 

2464 33rd W. Suite #173 
Seattle, WA 98199 
Phone (206) 285-2528 
COD, Visa, MasterCard telex Il (TWX) 9103338171 


CP/M, TM DRI. MS-DOS TM Microsoft. PC-DOS TM IBM. 


Patrick Adams 
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Next the compiler deletes all facts 
about “‘labelused”’ (which may be left 
from a previous compile) and starts 
over with (labelused 0). It does some- 
thing similar with ‘“‘last-shown,”’ 
which keeps track of how much of the 
file has been shown on the console. 

Then the compiler opens the input 
file X and adds a fact to the data base 
so that later it can find the name of 
the input file. Similarly, it opens the 
output file Y. It skips white-space 
characters in the input file, starting 
at the beginning and ending at loca- 
tion Z1 (x in Listing Three). Then it 
finds the syntax fact to tell it what to 
start compiling with and feeds that to 
the Q routine, which carries out the 
actual compile. 

Finally, the compiler closes the 
files and prints out a concluding mes- 
sage. If compilation fails for some 
reason, control goes to the second 
compile clause, and it prints out the 
error message. 

Now look at Q. This short routine 
implements the recursive-descent 
compile, according to the code in the 
last half of the compiler. The first 
two arguments are the before and af- 
ter file positions for both the input 
and output files. Whenever Q has to 
backtrack, the files automatically are 
rewound to the appropriate point for 
another try. 

Notice the use of the variable Z 
(the third argument of Q) as the 
predicate symbol in a search of the 
data base. This is called a “‘meta- 
variable’ in Micro-PROLOG: the 
name of the predicate to be verified is 
supplied as a variable, not as a con- 
stant. This powerful feature of Mi- 
cro-PROLOG may not be available in 
other Prologs. The X1 after the verti- 
cal line, which indicates the rest of 
the list, is another meta-variable. The 
remainder of this half of the code 
comprises various subroutines for use 
in the compile. 

This is a very brief description of 
only a small part of this compiler. A 
complete understanding requires a 
greater familiarity with the many 
features and quirks of the Micro- 
PROLOG package. 


Conclusion 
The compiler shown in Listing Two is 


written in the standard syntax of Mi- 
cro-PROLOG. As such, it should run 
under any version of Micro-PRO- 
LOG. I would be interested in hearing 
from readers who get it to work under 
other versions. (Of course, the output 
would still be in 8080 assembly 
language.) 

This compiler runs rather slowly. 
The common belief is that interpreters 
are slow, and this is an interpreter 
within an interpreter. The 10-line 
sample compilation in Listing One 
takes about 30 sec on my 4 MHz Z80. 
Because [ wrote the compiler primari- 
ly as a programming exercise, I have 
not been overly concerned with a rem- 
edy for the speed problem. Probably 
the bottleneck occurs in the input rou- 
tines that process one character at a 
time. For a faster compiler, routines 
such as match, id, or number would be 
recoded in assembly language. The 
Micro-PROLOG manual has instruc- 
tions on how to link such new built-in 
functions in assembly code with Mi- 
cro-PROLOG. 
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Compiler in P, r olog (Text begins on page 84) 
Listing One 


Use of the compiler 


E>PROLOG LOAD VALGOL 


micro-FROLOG 3.1 for RML 380/480Z 29/03/84 
(c) 1984 Logic Frogramming Associates Ltd, 
38517 Bytes Free 


&&.?2¢ (compile "P.VAL" "F ASM") ) 
VALGOL I compiler ~- translates YALGOL to ASM 
P.e.VAL -> FP.ASM 


ebheoin 
elnmteger } 
=3 5 

ewNtirle«. = 15 »do 
sheain 
edit C1+14wexe-xK«x, %47)5 
arant; 
“+1 =f 
,end 

end 


¥¥ Compilation of "F,.VAL" complete xx 
&.QT,. 


B>ASM F.BEZ 


CP/M ASSEMBLER - VER 2.0 
O1F7 

O01H USE FACTOR 

END OF ASSEMBLY 


B’-LOAD F 


FIRST ADDRESS 0100 
LAST ADDRESS O01F6 
BYTES READ O09 
RECORDS WRITTEN 02 


E> FY 
+ 
+ 
+: 
+ 
4- 
4. 
-+- 
4h. 
sg 
ahs 
+ 
+ 
+ 
+ 
type p,.val 
»sbeqin 
»imteger = 3 
0 =3 « 3 
eumtil “« .= 9 .do 
»beain 
emit, £° Ue)» S47}. 3 
print } 
38" oS4 
»ercd 
,end 
Ap 
+ 
+ 
= 
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Thunder Software 





¢ The THUNDER C Compiler - Operates under the 
APPLE Pascal 1.1 or 1.2 operating system gt ProDOS. 
Create fast native 6502 programs to run and alone 


programs or as subroutines to Pasca ams. A major 
subset of the C defined byK & R. @s a users guide, 
newsletters, Macro preprocessor, runs on APPL V 





I[+, //e, //c. Source code fer libraries is inchided. 
Only $49. 95 





e “LINKIT - "Structured APPLESOFT processor. No 
more line numbers. Only $39.95 
POB 31501 Houston Tx. 77231 
713-728-5501 
Visa, Mastercard, COD, checks accepted 
Add. $3.00 for P&H 
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NOW C HERE! 


CROSS SOFTWARE 
for the NS32000 


Also Available for IBM PC 
INCLUDES: 


* Cross Assembler * 
* Cross Linker « 
* Debugger * 


* N.S. ISE Support * 
* Librarian * 
* Pascal Cross Compiler * 
* C Cross Compiler « 


U.S. prices start at S500 


SOLUTIONWARE 


1283 Mt. View-Alviso Rd. 
Suite B 
Sunnyvale, Calif. 94089 
408/745-7818 « TLX 4994264 
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End Listing One 


(Listing Two begins on next page) 
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Compiler in P, r olog (Listing Continued, text begins on page 84) 
Listing Two 


VALGOL.LOG 


2¢¢ /*® 
VALGOL.LOG 
Compiler for VALGOL I -- ver, 1.2 


Written in Micro-FROLOC. 

(Tested with Micro-FPROLOG version 3.1 for CFP/M-80) 

Translates VALGOL I to ASM-compatible 8080 assembly language, 
Uses file SEEKs for backtracking. 


written byt G. A. EDGAR status? public domain 
0.3 September 9, 1984 M80, Z80 
1.0 September 16, 1984 output for ASM 
Lt November 1, 1984 gisplay input 
1.2 November 10, 1984 version for DDJ 


Usage - in SIMPLE syntax? 
&.is("FOO.VAL" compile "FO0O.,ASM"> 
~ in standard syntax? 
&.?¢(compile "FOO.VAL" "“FOO.ASM")) 


TEL ef RS eee ae ee Lanquage independent part --------------- ») 


2¢¢€ 7* compile? imput X, output Y)) 
(Ccompile X Y) 
(mescace “™) (Pos) CPP) CP Xo"=->" Y) CPP) (CPP) 
(KILL labelused) (ADDCL ((labelused 0)) ) 
(KILL last-shown) CADDCL (Clast-shown ¢(-1]-1))) >) 
(OPEN X) (KILL infile) (ADDCL (Cinfile X)) ) 
(erase Y) (CREATE Y) (KILL outfile) CADDCL (Coutfile Y)) >) 
(skip (COO) 1¢C010)>) Zi ) (syntax z)> (Q Z1 Z =z) 
(CLOSE =X}: (CCEOSE Y> 
(FF) (FF «*K Compilation of X complete **)) 
((compile X Y) 
(FP) (FPF «kK Syntax error *¥x«) 
(CLOSE X> (CLOSE Y)> 
XC. oY 
(compile X Y)) 


2¢¢ /* Qt find it in the lanquage-specific database) ) 
C£07X%--¥ ‘22 

(Z | Xi) (Sequential X Y | X1)) 
((sequential X X)) 
((sequential X Y (zIZ)1¥4) 

(z X X11Z) 7/7 (sequential Xi Yily)) 


2¢¢ /* out? send a line to outfile)) 
(Cout (yilzi> ¢yilz2Z2) | X) 
Couns i ie. 22. SEEK 2 2h) toute Zo1: XxX) 
Coutx 2°" ANA"): <SEEK 2. zZ)) 
(Coutx Z)) 
(teutxs 2 xX bx) 
C92 OA973 =F) LOUE REZ Pe 


2¢¢€ /& match? the input matches string Z)) 
(match X Y Z) 


(STRINGOF Zi Z) / (match X X2 Z1) (skip X2 Y)) 
(({matchx X Y ¢(x1Z)) 

Cincher: X Xt xi) CEQ x. i) 7 tnatehx X11 Y Z>) 
((matchx XK X (¢))) 


2€¢€ /® empty! matches automatically) ) 
(Cempty X X)) 


2¢€ /K multiple! match the following zero or more times) ) 
((multiple X Y|Z) 
Comee X X11Z) / (multiple X1 YIZ)) 
((multiple X X]Z)) 
(Conce X X)) 
(Conce X Y (zI1Z)1¥y) 
(4X X242) 7 Conve. K4-¥tSe)> 


?(¢ /®& label! generate a new label)) 

(Clabel X X Y) 
(labelused Y1) (SUM Y1 1 Y) (KILL labelused) 
(ADDCL ((labelused Y)) )) 
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Poor Person Software 


Introduces 


Write-Hand-Man 


Desk accessories for CP/M 


Write-Hand-Man lets you take notes, check phone 
numbers, make appointments, and countless other tasks 
without leaving Wordstar, dBase, Multiplan, or any other 
application. Enter Write-Hand-Man with a single key- 
stroke and choose the program you want. When you 
leave Write-Hand-Man, your application continues 
normally. 


$49.95 plus tax delivers Write-Hand-Man and 4 


companion programs; Notepad, Phonebook, Calendar, 
and Termcomm. User written programs are easily added. 
All you need is M80 or some other LINK-80 compatible 
assembler. 


Other CP/M products available from Poor Person Software: 
Poor Person’s Spooler ($49.95), Poor Person’s Spelling Checker 
($29.95), Poor Person’s Spread Sheet ($29.95), Keyed Sequential 
Files ($39.95), Poor Person’s Menus ($29.95), aMAZEing Game 
($29.95), Window System ($29.95), Crossword Game ($39.95), 
Mailing Label Processor ($29.95). Shipping included. 


All products available on IBM 8 inch and Northstar 5 inch disks. Other 5 inch 
formats add $5 handling charge. No credit cards. 


Poor Person Software 
3721 Starr King Circle 
Palo Alto, CA 94306 
tel 415-493-3735 


CP/M is a registered trademark of Digital Research 
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Indexed File Manager 


using 
$75°° 
B-Treeg 2°. 


source included 
C Programmers, we provide the record handling that 
C left out. 


The SOMfOCUS BTree library is a record oriented function pack- 
age that uses balanced BTree indexing for guaranteed fast 
access. Add our functions to your C library and greatly reduce 
application development time. 


e High speed keyed and sequential file handling. Up to 
16.7 million records per file. 

e Source code supplied; conforms to K&R standard to 
ensure portability. 

e No royalties on application programs. 

e Documentation and example programs included to help 
you use BTrees. 


e Full feature product at a fraction of the cost of 
competing BTree software. 


Join the growing number of satisfied programmers using 
BTrees. 





To order call 


1277 Pallatine Drive 
Oakville, Ontario L6H 121 
(416) 844-2610 


Credit cards accepted. Dealer inquiries invited. 
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WIZARO C 


Fast compiles, fast code and great diagnostics 
make Wizard C unbeatable on MSDOS. Discover 
the powers of Wizard C: 


ALL UNIX SYSTEM Ill LANGUAGE FEATURES. 

UP TO A MEGABYTE OF CODE OR DATA. 

SUPPORT FOR 8087 AND 80186. 

FULL LIBRARY SOURCE CODE, OVER 200 FUNCTIONS. 
CROSS-FILE CHECKS OF PARAMETER PASSING. 

USES MSDOS LINK OR PLINK-86. 

CAN CALL OR BE CALLED BY PASCAL ROUTINES. 
IN-LINE ASSEMBLY LANGUAGE. 

240 PAGE MANUAL WITH INDEX. 

NO LICENSE FEE FOR COMPILED PROGRAMS. 


The new standard for C Compilers on MSDOS! 


Only $450 


For more information call (617) 641-2379 
Wizard Systems Software, Inc. 

11 Willow Ct., Arlington, MA 02174 
Visa/Mastercard accepted 


WSS 
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Introducing FAST ASSEM-86™, the TURBO PASCAL™ of IBM PC assemblers. 
FAST ASSEM-86™ (FASM) is significantly faster and easier to use than the IBM 
Macro-Assembler (MASM). Whether you are new to assembly language and want to 
quickly write a small assembly language routine, or are an experienced MASM user 
tired of waiting months to assemble large files, FAST ASSEM-86 will bring the 
excitement back to assembly language. 


FAST ASSEM-86 IS MUCH FASTER: 

@ How fast is FASM™? The graph below shows relative assembly times for a 48K 
source file. For large files like this we blow MASM’s doors off at 3 times their 
speed. For smaller 8K files we positively vaporize them at 6 times their speed. 
FASM™ (110 sec.) ay 
MASM 2 se ne ea a eT 

e FAST ASSEM-86 is faster for the following reasons: (1) Written entirely in 
assembly language (unlike MASM). (2) Editor, assembler and source file always 


in memory so you can go instantly from editing to assembling and back. (3) 
Eliminates the time needed to LINK programs. Executable .COM files can be 
created directly. (Also creates .OBJ files compatible with the IBM linker). 


FAST ASSEM-86 IS EASIER TO USE: 


FASM includes many other features to make your programming simpler. 


Listings are sent directly to screen or printer. Assemblies can be single stepped 
and examined without having to leave the editor. 


Access the built in cross reference utility from the editor. 
Full support of 186 and 286 (real mode) instructions. 


Both Microsoft and 8087 floating point formats are supported. 8087 and 287 
instructions supported directly without macros for faster assembly. 


Calculator mode: Do math in any radix even using symbols from the symbol table. 
Direct to memory assembly feature lets you test execute your code from editor. 
Coming soon: A coordinated symbolic debugger. 

COMPATIBILITY: FASM is source code compatibile with MASM and supports macros, 

records and structures. 
Introductory Price $49 
With .OBJ Capability $99 
Box D2, 2931 Northrop Avenue 


Sp eedwa r e om Sacramento, CA 95825 


IBM, Turbo Pascal, Microsoft trademarks of IBM Corp., Borland Intern., Microsoft Corp. 


Dealer inquires welcome 
916-966-6247 
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Compiler in P. r olog (Listing Continued, text begins on page 84) 
Listing Two 


?¢¢ 7K string? match a string quoted within characters +)) 
((strinag XxX Ys: Z) 

/- Cincher xX XZ “1). CEQ s&h 7 

(strings XZ X3 “°Z1) <skip. X3 Y) CSTRINGOF. Z1 Z)) 
Ctstrings. x ¥Y = .6)) 

 Sanener: Xx Vorh) CER. a) 7) 
(Cetrines x -% ve Gg 4 29 

Cinechar' xX XI yy) 7. Cetrines- XL ¥°s: Z)) 


2¢¢€ /K ids match an identifier) ) 
{ie Xx: ¥-29 

Cidx X XZ Zi) (skip XZ YY). ¢CSTRINGOF Z1 Z)) 
Ctids x ¥.<xt2)) 

C(inchar X X1 =“) (alphabetic «) / (Calphanum X1 Y Z)) 
(Calpharnum X Y (x 1Z)) 

Cinehar X Xi =») Calpharnumeric «) 7/7 (Calphamnum Xi Y Z)) 
(Calphanum X X ¢))) 


2¢¢ /&K mumber st match a number) ) 
((Cruimber X Y Z) 

/ (rumberx X X2 Z1) 

(NOT EQ Z1 ()) (skip X2 Y) (CSTRINGOF Z1 Z)) 
(Cruimberx X Y ¢(x1Z)) 

Cinchar X X1 ™) (digit ~) 7 (numbersx X1 Y Z)) 
CtCrunber*: xX K.-C) y) 


(Calpharumeric ) 
(alphabetic )) 

(Calphanumeric x) 
(ALQit: 3) 


(Calphabetic x) 
(LESS. "@" 3). CLESS-. 6 "69 
(Calphabetic x) 
fLESS °*” sx) CLESS 


~ 


mermnyy 


((digit ») 
(LESS "Fs" x CLESS ee ty) 


?(¢€ /K skip: skip over characters listed as "skipchar'')) 
((skip X Y) 

Cincher: X Xi “) Cekisnensr +>: 7 Cskip: Xi ¥>) 
((skip X X)) 


((skipechar " '")) 
((skipehar "“I"')) 
((skipchar "4J'')) 
((skipchar "4M")) 


2¢¢ SK inchar’! input one character, show on console first time)) 
(Cinechar (ylilzi) ¢(y¥y2|z1) x) 
C(infile Y) (SEEK Y y1) (RDCH Y x) (SEEK Y 42) (last-shown ¥3) 
(IF (hefore 43 42) 
(CP x) CKILL last-shown) (CADDCL ((Clast-shown 42)) )) 
¢)>)> 


?¢€ /&k before? compare two file positions )) 
((before (ylizi) (y41]2z2)) 

/ (LESS zi 2z2)) 
(Chefore (yl]{[z1) ¢¥y2}12z2)) 

(LESS y1 42)) 


?(¢(€ /* erase? erase a file, no failure)) 
(Cerase Y) 

(ERA Y) 7) 
(Cerase Y)) 


?CC /*& --- VALGOL specifics --------------~—--~~--~~-~-~~~-~---- ») 


((message "VALGOL 1 compiler - translates VALGOL to ASM")) 
((syntax FROGRAM) ) 


(CF ROGRAM 

(match ".beagin'") Count "UCFEM EQU 9 
Court, "VEDOS ERQU a? 
Cout "UTPA EQU 256") 
fout "UCR EQU a" 
Cout “VLF EQU 10") 
Cout ” ORG VTFA") 
Count, LXI SP,VSTACK") 


(Q OF T-DECLARATION) 
(Q STATEMENT) 
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(multiple 
(match 
(Q STATEMENT) ) 

(match ".end') 


Moet 


Cout 
Cout 
Count 
Count 
Cout 
Count 
Cout 
Cout 
Cout 
Cout 

Cout 

Cout 

Count 

Cout 
a Cout 
fout 
Cout 
Cout 
Cont 
fout 
Cout 


Cout 
Cout 
Cout 

Cout 

Court, 

Cout 

; Cout 
Count 

Cout 

Cout 

(out 

Cout 

Cout 


Cout 
Cout 
Cout 
Cout 


yan in 


Now with over 25 MSDOS formats, 


* JMF WEP) 

eM Ane 8 

ry MOV Bh) 

> MOV ee 3 

be XRA A") 

“= MOV H,A'") 

r MOV Ly»A'") 

a MVI A,16") 
“VMNULT1 3. - PUSH FSW") 

~ DAD HH”) 

a XRA A") 

u MOV A,C") 

a) RAL.) 

e MOV. C,A") 

fs MOV A,E") 

" RAL'') 

rs MOV B,yA'") 

" JNC VMULT2") 

o DAD D*) 
VVMULT 2. POP FSW") 

Fe DCR A') 

7 ORA A") 

” JNZ VMULT1") 

a RET") 

“VEDIT ¢*.2 

i‘ MOV A,H") 

a ORA Ce 

= JZ VERE TL 2 

" MYT Ay”) 

i CALL VCFMOUT") 

rt DCX 2 

7 JMF VEDIT")> 
“VEDITES:. FOF He 
"SEDITZ? - “ADV A,M") 

. CFI 0") 

rf INX Hq”) 

n JZ VEDITS") 

ii CALL VCFMOUT") 


(Continued on next page) 


3'/2’’ formats, 


TRO OTe Cee) Cleese Te ney options 


Disk Maker || shown 
with opt. drives 





Download fast, read over 200 formats easily, reformat rapidly 


The more disk formats you work with, the more our 
Disk Maker™ system saves time and money by reading 
and/or writing disks in any of over 200 formats. No mo- 
dems, no patches, no other special software necessary. 


Disk Maker II is a complete, stand alone system with 
one 8’’ DSDD disk drive, one 48 tpi 5%%’’ DSDD disk 
drive, 6 MHZ Z80B, 64K CP/M system with Disk 
Maker™ software. (96 tpi and second 8’’ drive option- 
al.) Just plug in your terminal and make disks! Bundled 
software includes MicroShell™ /MCALL-II communica- 
tions software. Base price: $3,395. 
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Supported with comprehensive, easy-to-read manual, 
software updates ($50.00, all formats in revision), and 
additional drives and hard disk options. 


Disk gent 
prices from 


1,699 
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Disk Maker | runs as a peripheral with an S-100 system 
and comes with S-100 controller board, one 48 tpi 
DSDD 5%’ disk drive, dual drive cabinet and power 
supply, cables and Disk Maker software. 96 tpi and 8” 
drives are optional. Base price: $1.695. 









New 
GeNnNeRAaTION 
SYsTemMs 


1800 Michael Faraday Drive, Suite 206, Reston, VA 22090 
(703) 471-5598 Order Line: (800) 368-3359 Dealer inquiries welcomed. 
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Compil er in P. r ol Og (Listing Continued, text begins on page 84) 
Listing Two 


(out, * JMF VEDIT2Z°) 
(out "“VEDIT33 PUSH HH’) 
(out " RET") 
Cout “VFRINT +" > 
Court, . MVIT A,VCEK") 
Count oA CALL VCFMOUT'') 
Cout - MVT. A,VLF") 
Count CALL VCFMOUT'') 
Cout HEA. 2 
Cout "VCFPMOUT?'") 
Cout = FUSH ne? 
Court, vs MOV E,A") 
Cout, o MVIT Cre 2 
Cout ? CALL VEDOS") 
Court, = POF H'') 
Cout ™ RET'') 
Cout . DS 60") 
(out "YSTACK? DW a7.) 
Cout ” END’) <>) 
( (OF T-DECLARATION 
(Q DECLARATION) 
Cnetch “7">)) 
((OFT-~DECLARATION 
(empty))> 
((DECLARATION 
(match ",integer'") (label X1) 
(out = JMF ee ee 
(Q ID-SEQUENCE ) {out Pe ee ee ee 
(CID-SEQUENCE 
(Q IDENTIFIER) 
(multiple 
(match? 5") 
(Q IDENTIFIER) ))) 
(CIDENTIFIER 
(id Z) Cout oes DS A eee 
((STATEMENT 
(Q IO-STATEMENT))) 
((STATEMENT 
(Q ASSIGNMENT-STATEMENT) )) 
(CSTATEMENT 
(Q UNTIL-STATEMENT))) 
(CSTATEMENT 
(Q CONDITIONAL-STATEMENT) ) ) 
(C(STATEMENT 
(Q BLOCK))) 
(CELOCK 
(match ".,begin'") 
(Q DECL-OR-ST) 
(multiple - 
(match "3'') 
(Q STATEMENT) ) 
(match ".,end") )) 
( (BLOCK 
(match ".,beagqin') 
(match ".end") )) 
((DECL-OR-ST 
(Q DECLARATION) >) 
((DECL-OR-ST 
(Q STATEMENT) )) 
(CIO-STATEMENT 
(match "“edit") 
(matory “<"*) 
(Q EXPRESSION) 
(match ",™) 
(String "7.25 Cout < CALL VEDIT*) 
Count u DE tu Zz ue ’ 0 uw ) 
(meaten.*y") 39 
((IO-STATEMENT 
(match "print") Cout " CALL VPRINT') )) 
( (CONDITIONAL-STATEMENT 
(match ".if") (label X1) (label X2) 
(Q EXPRESSION) 
(match ".then'") Cout MOV A,H") 
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(Q STATEMENT) 
(match ".else") 


(Q STATEMENT ) 


( (CUNTIL-STATEMENT 
(match ".,umtil"™) 


(Q EXPRESSION) 
(match "do" 


(Q STATEMENT) 


( CASSIGNMENT-STATEMENT 
(Q EXPRESSION) 
(match "=3'') 

Cid: Z) 


((EXFRESSION 
(Q EXFRESSION1) 
(Q OF T-RIGHT-SIDE) >) 


( (OF T-RIGHT-SIDE 
(match ".="') 


(Q EXFPRESSIONI > 


| ( (OF T-RIGHT-SIDE 
| Cempty))>) 
( (EXPRESSION! 
(Q TERM) 
(multiple 
(Q SIGNED-TERM)))) 


( (SIGNED-TERM 
(match '"+") 
(Q TERM) 


((SIGNED-TERM 
(match "'-") 
(Q TERM) 


(( TERM 
(Q FRIMARY > 
(multiple 
(match "xK'') 
(Q FRIMARY ) 


( (FRIMARY 
Cid Zz 

( CF RIMARY 
(number Z) 


( (PRIMARY 
(match “¢"9 
(Q EXPRESSION) 
Caecern, 82 2d 
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Cout e ORA 
(out ss JZ 
Cout = JMF 
Cout, RO ES Oe Oe 
Court UO gee eee Peake 
(label X1) (label X2) 
(out A Peis Re 
Court, “= MOV 
Cout ae ORA 
Cout 4‘ JINZ 
Court = JMF 
Cout OA ee oe ae 
Cout : SHLD 
(label Xi (label XZ) 
Cout ve FUSH 
Cout é FOF 
Cout 5 MOV 
(out " SUE 
Cout " JNZ 
Count _ MOV 
(out . SEE 
Cout * JNZ 
Cout = ExT 
Cout “= JMF 
Cout ues Wd ie ; W ) 
Cout -y czy 
Cout wey tt x1 1] 2 u ) 
Cout “= FUSH 
Court ny FOF 
Cout 7 DAD 
Court " FUSH 
Cout = FOF 
Cout s MOV 
Count a SUE 
Cout _ MOV 
Cout x MOV 
Cout SEE 
Cout " MOV 
Cout " FUS 
Cout * FOF 
(out " CALL 
Cout 7 L.HLD 
Cout " LA 


£) 
v" Xt) 


A LD 


A,H") 
L'') 

Vv" X2) 
Vv" XL) 


a Le rue) 2 


M2 
D> 
A,L") 
Bot 
er MSD 
A,yH") 
D") 
Vv" X2) 
H,i") 
Vv" X11) 


H,0") 


VS 


nga 


») 


H*') 

pO) 

SAULT" 3-339 
u Z aeRF Sy Y 


Be Pees? 


End Listing Two 


(Listing Three begins on next page) 
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LXT H,14 


e @ 
Compiler in Prolog BSH H 
LHLD “VY 
e 4° POF D 
Listing Three CAL ics 
POF D 
(Listing Continued, text begins on page 84) DAD D 
FUSH H 
; LHLD VY 
Part of VALGOL.LOG in SIMPLE syntax ist ee 
FOF D 
X compile Y if CALL UMULT 
message (Z) and POF D 
F ¢€Z) and MOV A,E 
FF snd SUE . 
FF and MOV LA 
KILL (labelused) and MOV A,D 
add €(0 labelused)) and SEE H 
KILL (last-shown) and MOV H;A 
add (¢€¢€-11-1) lsst-shown)) ane CALL YEDIT 
OPEN ¢X%) and DE oe TSA) 
KILL Cinfile) and CALL UR RINT 
add €(X infile)) and LHILD “VY 
erase (Y) and PUSH H 
CREATE ¢€Y) and L¥I H,1 
KILL Coutfile) and FOF D 
3dd (CY outfile)) ane DAD D 
Skip CCCHPO)” 0109 2 snd SHLD sel) 
symtax (y) ane JME U2 
oe x Z Y¥) and V3: + 
LOSE (X) and ; “s 
CLOSE. CYS. -anad UMULT? shh Moe 
PF and MOY EH 
PF ¢¥«** Compilation of X complete *x) MOU Cot 
xX compile Y rT XRA es 
PP and | MOY HA 
FP («XK Syntax error ¥*«) and MOU tae 
“e 
CLOSE (X) and - 
CLOSE ¢Y) aoe Bie 
“OSE (Y) UMULT1? FUSH FSW 
X alphanumeric if DAD H 
X sBlphabetic YRA A 
X alphanumeric if MOV A.C 
X digit PAL Pies 
X alphabetic if MOU CoA 
> 
@ LESS X and MOY A,E 
X LESS C RAL 
X alphabetic if MOU EA 
oe 
* LESS X and UNC UMULT2 
LESS -< DAD pre 
X digit if VMULT2$ FOF FSW 
/ LESS X and ee DCR 4 
X LESS 3 End Listing Three ORA A 
JINZ YUMULT 1 
iil a. FE T 
Listing Four cies 
PASM 7 on 14 
UCEM EQU 0 JZ VEDITI 
VEDOS  EQU 5 MUT Oe 
UTPA EQU 256 CALL UCPMOUT 
UCR EQU 13 DEX H 
VLF EQU 10 JMF! VEDIT 
ORG UTFA | YVEDIT1I? FOF H 
L¥I SF ,YSTACK VEDIT2Z$ MO A,M 
JMP v1 CPI 0 
“V% DS 2 INK H 
Vit JZ VEDIT3 
LXI H,0 CALL UCPMOUT 
SHLD “2 JMF VEDIT2 
Y23 VEDIT3: FUSH H 
LHLD “Y RET 
PUSH H VFRINT$ 
LXI H,15 MYT A, VCR 
POF D CALL UCFMOUT 
M(Q)YV A,>L. MVI A,VLF -: 
SUR: E CALL VCFMOUT 
JNZ US RET 
MOY A;H VCFMOUT: 
SEE: p FUSH H 
JINZ US MOY E,A 
LXI Hy 4. MU C2 
JME V4 CALL VEDOS 
VSs FOF H 
LXI H,0 RET 
MOY A,H USTACK? DW 0 
ORA 5 END 
JINZ V3 
L¥T H,1 
FUSH H : End Listings 
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Software 


PCBTAM 


Communications Access Method 


Allows an IBM PC or compatible to perform 
BISYNC communication. PCBTAM is 8 gener- 
al purpose interrupt driven access method us- 
able by any Microsoft ane: Requires IBM 
BSCA card and PC-DOS. 

¢ Source or object license 

* Asynchronous version available (PCATAM) 

* Modifiable for other USARTS. 
For details write: 


RES EEL 
SYMBIOTIC 


Symbiotic Protoco! Converters, Inc. 
1011 Clifton Avenue, Clifton, New Jersey 07013 
1201) 777-8454 







Olive Branch Software 


COPY PROTECTION 

SLK/F places an assembled or 
compiled program on a dis- 
kette with 4 different copy- 
resistant features in such a 
way that it runs normally, but 
cannot be copied by backup 
programs such as COPYPC. 
The rest of the diskette is 


available as normal, and DOS - 


may be added. Price $150. 
Olive Branch Software 
1715 Olive Street 

Santa Barbara, CA 93101 
(805)569-1682 


DriveLiner 


Drive Alignment Test 
Program for CP/M 2.2/3.1 
With Dysan 8” SSSD 
Diagnostic Disk 

$65 check/MO postpaid 
Chandler Software, 273 W 
Shore Dr, Marblehead MA 
01945 (617)631-4685 


Dr. Dobb’s Journal 


is pleased to announce the 
DDJ Classifieds 


RATES: DISPLAY ADVERTISERS: Price per column inch $100. Ad must run in 3 


DD} Classifieds 


CTL AU 


ea RS) a 
DISKETTES & DUPLICATION 


Large or Small - Let’s Talk!! 


5%" DISKETTES 


SS/DD gg° EA. oso | | 0 EA. 


Minimum order 250 disks. 
8” - Color Jackets - 342” CALL!! 


Hundreds of professionals 
can’t be wrong!!! 


CALL 800-437-0500 
800-435-7400 In CA 
TODAY! — (408) 262-3008 


780 Trimble Rd. @ Suite 608 
San Jose, CA 95131 


consecutive issues. 


TECMAR GRAPHICS 
LIBRARY 


TEKMAR lets you do high-res 
graphics on your TECMAR 
Graphics Master. Features 
windowing, viewporting, 
clipping, axis rotation. Similar 
to Tektronix graphics. 
Includes screen dump/ 
restore, Epson screen print, 
support for HP and Western 
Graphtec plotters. Includes 
three curve-fitting programs 
and graphics application 
SOURCE CODE. Requires 
MS-FORT 3.20, or Lahey 
F77L. Price: $195. 


ADVANCED SYSTEMS 
CONSULTANTS 

18653 Ventura Boulevard, 
Suite 351 

Tarzana, California 91356 
(818) 990-4942 














Offering low cost 
advertising reaching 
thousands of computer 
programmers and 
professionals each 
month. Departments to 
choose from include: 
Software 

Hardware 
Accessories/Supplies 
Career Opportunities 
Services 


LINE ADVERTISERS: Price per line $12 (35 characters per line including 
spaces). Minimum of 5 lines. 3 consecutive issues. Add $3 per line for 
boldface type. Add $25 if a background screen is desired. 

DISCOUNTS: Frequency discounts for 6 consecutive ads (less 7%) and for 12 
consecutive ads (less 15%). 

MECHANICAL REQUIREMENTS: Camera ready art or typewritten copy only 
(phone orders excepted). Display: Specify desired size, include $20 if 
reduction is required. Line: Specify characters in boldface, caps. Allow 6 
weeks for publication. 

PAYMENTS: Full payment in advance. Check, money order, Visa, M/C, AmEx. 




































Run this ad in issues 





































User Groups. Special Size: col x inches or 1 col x lines 
categories are also Payment by: check m/o Visa M/C AmEx 
available. Card # Exp Date 
Signature 


Print Name 





Company 
Address 
a tha eng kit ttn I a ie lire tee tte 
Pre a eS a ert Seen 


Mail to or phone Alex Williams, DDJ Classifieds, 2464 Embarcadero 
Way, Palo Alto, CA 94303 (415) 424-0600 
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REVIEWS 


Toolworks C/80 and Tool- 
works C/80 Mathpack, 
Version 3.1 

Company: Software Toolworks, 
15233 Ventura Bivd., Suite 
1118, Sherman Oaks, CA 
91403 

Computer: Heath; Kaypro Il, 4, 
and 10; Osborne 1 and the 
Executive; DEC VT-180 and 
Rainbow; Xerox 820 

Price: Compiler, $49.95; 
Mathpack, $29.95 

Circle Reader Service No. 101 

Reviewed by D. C. Shoemaker 


Few readers of Dr. Dobb’s Journal 
are unaware of the contribution 
made to small computer system pro- 
grammers by Ron Cain and his mini- 
mal C subset compiler. Over the 
years since its introduction, there 
have been many extensions and im- 
provements, all building on his basic 
idea. One of the best and most com- 
plete versions is from Walt Bilofsky’s 
Software Toolworks. First released in 
1981, Version 3.1 is the most current 
and comes the closest to being a com- 
plete C compiler. 

This software is a bargain at the 
price. The package comes in two 
parts, sold separately: the C compiler 
itself is $49.95, and the C/80 Math- 
pack is $29.95. There’s a reason for 
the way the software is packaged and 
priced. Those just learning C proba- 
bly have no need for the FLOAT and 
LONG data types that the Mathpack 
provides. Adding these features 
somewhat increases the size of the li- 
braries and the assembled code. If 
you need them, Mathpack is a bar- 
gain-level entry into other more pow- 
erful capabilities given by the addi- 
tional data types. Therefore, you 
don’t have to pay for something you 
don’t need, but you aren’t limited to 
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an entry-level compiler that can’t do 
serious work. 

C/80 is a complete implementa- 
tion of the C language described by 
Brian Kernighan and Dennis Ritchie 
in The C Programming Language 
(Prentice-Hall, 1978) with the excep- 
tion of the following features: 


¢ FLOAT and LONG data types 
(available in the C/80 Mathpack) 

¢ DOUBLE data type 

¢ typedef 

e Arguments to #define macros 

e #Hline 

e Declarations within nested blocks 

¢ Bit fields 


Whether or not these omissions are 
significant depends a great deal on 
what you want to do with the soft- 
ware. If you want to learn the lan- 
guage and get a whiff of program- 
ming in C, the C/80 package is 
sufficient. If you want to write some 
fast-running utility software and 
don’t want to invest the time in as- 
sembly language, these omissions will 
cause no problems. 

C/80 supports structures, statics, 
initialization, casts, compile time 
evaluation of constant expressions, 
and all the other C language features. 
It’s worth mentioning some of the 
features that C/80 does provide, 
however, because they’re often lack- 
ing in other subsets: 


e Unix-style I/O redirection 
Conventional C I/O and string 
library 

Formatted and random access file 
I/O 

Dynamic storage allocation 
Runtime execution profile 
capability 

In-line assembly language 
capability 





In addition, C/80 can generate 
source code compatible with Macro- 
80 and RMAC. Should you have nei- 
ther, a serviceable assembler comes 
with the C/80 package. It works well 
and does the job with no fuss. 

If you have a version of C/80 earli- 
er than 3.0, here are the main 
changes in version 3.1: 


An expanded runtime library 

¢ ROMable code 

¢ RMAC compatibility 

e A menu-configurable compiler 

« \ vat, the end: of.-a.line for 
continuation 

#ifneed for selective compilation 
True alloc/free 

Command line wildcard expansion 
¢ CP/M files now written in 128-byte 
records 

File 0 always the terminal 


The changes from version 3.0 to 3.1 
are to correct minor bugs and speed 
code generation. Some new compiler 
switches have been added, and you 
are now prohibited from reading 
from and writing to the same open 
file. If you have one of the earlier ver- 
sions of C/80, return the original disk 
to Software Toolworks with $10.00, 
and they will give you the most recent 
version. I bought my first copy of C/ 
80 in 1981 and have updated it twice. 

Software Toolworks makes the C/ 
80 package available in a variety of 
formats. Walt Bilofsky was one of the 
first to support Heath’s in-house disk 
operating system HDOS, and he still 
does. However, the standard remains 
CP/M, and Software Toolworks pro- 
vides disks for Heath, both hard and 
soft sector; Kaypro II, 4, and 10; Os- 
borne I and the Osborne Executive; 
DEC’s VT-180 and the Rainbow; the 
Xerox 820; and the standard 8-inch 
CP/M single-density format. There’s 
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even a version for the Epson QX-10. 
Currently no version is offered for the 
IBM PC, PCjr, or any MSDOS, 
PCDOS, or ZDOS computer because 
the programs are written in 8080 
code, but I expect that will change. 
Incidentally, I’m using the CP/M ver- 
sion on a Heath H120 running CP/ 
M-85 with no trouble at all. Just or- 
der the soft-sector Heath version. 

Using C/80 is simple. The hard 
part (as usual) is writing the original 
C language program. Then you call 
C/80 and let it compile the source 
into 8080 assembly language code. 
Let’s use one of the test files on the 
distribution disk, HELLO.C. We do 
this by typing “C80 HELLO.” The 
output file from C/80 can be modi- 
fied if you wish. I’m not the greatest 
assembly language programmer, so I 
don’t change the code, but someone 
more experienced might be able to 
tighten it up in some areas. 

Next, call the assembler of your 
choice. I use the one that comes with 
the package. It’s invoked as you 
might expect, by typing ““AS HEL- 
LO.” When the assembly is finished, 
you have an executable file called 
HELLO.COM. It will be rather large, 
due to the inclusion of pieces from the 
I/O and other libraries, but that’s 
part of the tradeoff. The completed 
code executes relatively quickly. I 
don’t have the capability to do much 
comparative benchmarking, but 
comparisons I’ve seen suggest that in 
some cases C/80 is a bit faster than 
BDS C and in others a bit slower. On 
balance they seem about equal, ex- 
cept that BDS C has some nonstan- 
dard features that get in the way of 
portability, and it costs twice what 
C/80 costs. BDS C doesn’t provide as 
many formats, either. 

Software Toolworks doesn’t 
charge a license fee for the COM files 
created by C/80. This means that 
you're free to market whatever you 
write and compile as you see fit. Un- 
like some of the so-called “big boys”’ 
of the software industry, Bilofsky en- 
courages programmers to market 
software using his tools. 

A word about documentation: If 
you re a first-time C user, the manual 
that accompanies C/80 won't be too 
helpful. There are some examples in 
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the documentation that you can play 
with, and several source code files on 
the distribution disks, but that’s it for 
introductory material. Several good 
books on the market can help you get 
a better grasp of the language. The 
documentation lists eight of the most 
common of these, and new books ap- 
pear almost monthly. 

The C/80 manual is 50 pages long 
with a three-page index. It has 16 
chapters, with most of the attention 
paid to a language summary, a de- 
scription of the I/O and runtime li- 
braries, and a discussion on running 
the compiler. The manual includes a 
brief discussion of the internal fea- 
tures of the compiler and useful 
tricks to bend the compiler to your 
will. There is also a detailed list of 
compiler error messages, what they 
mean, and what to do about them. 

The C/80 Mathpack requires C/80 
version 3.0 or greater. If you’ve been 
working with an earlier verson of C/ 
80, the Mathpack is a good reason to 
take advantage of the Software Tool- 
works’ update policy. Mathpack 
comes on one disk with a short man- 
ual. The Mathpack adds true 32-bit 
LONG and FLOAT data types to the 
C/80 compiler and runtime library. It 
includes a program to patch the C/80 
compiler to recognize LONG and 
FLOAT, a runtime library to perform 
32-bit arithmetic, routines to convert 
between ASCII and floating-point 
representation, an augmented printf, 
and a transcendental library written 
in C. 

In practical terms, this gives the 
C/80 a 32-bit signed number capa- 
bility in the range —2,147,483,648 to 
2,147, 483, 647. Floating-point num- 
bers have 24-bit precision, which 
equates to about seven decimal digits, 
and an exponent range of 10 to the 
plus or minus 38th power. 

Installing the Mathpack requires 
only that you run the modifying pro- 
gram CCONFIGF.COM. A menu will 
appear with a range of options. 
Choose option N and press RETURN. 
This changes FLOAT and LONG 
from not available to available. Now 
type a Y in response to the question 
about making changes permanent, 
and you’re done. Everything else 
about C/80 remains as before, except 


NEW: IBM® PC, XT, Compag® Corona® 


remembers the 
function keys... 





== Lotus 1-2-3" 


.. of all your favorite software. You select your 
own combination from 20 color coded function 
key overlays, and attach your FlipKit to your 
keyboard—that’s all there is to it! Of course, 
FlipKit is non-glare, easily removable, and will 
not mark your keyboard. Every FlipKit includes 
preprinted overlays for: 


Lotus™ 1-2-3™ 

Multiplan™ for IBM® 

Framework" 

Symphony™ 

dBase® Ill 

IBM® Filing/ 
Reporting Assistant 

Thinktank™ 

IBM® Writing Assistant 

Microsoft® Word 


Multimate™ 
Pfs® -write 
Wordstar® 
Crosstalk XVI"™ 
MS™ DOS 


LUS 

5 “do-it-yourself” 
sonils overlays 
and keyboard 
attachments 


Only $14.95! Order Now! 


Visa, Mastercard only, call 24 hrs/7 days: 


1-800-228-2028 ext. 120 toll free Cont. US. 


In Nebraska, call 1-800-642-8300 ext. 120 
Information, inquiries, call 415-325-8000 


Or send check, m.o., credit card into. (#, exp. date, 
and signature) to: 


Micro Direct International 
P.0. Box 60987, Palo Alto, CA 94306 


Include quantity, name, address, city, state, zip, 
phone. Sorry no CODs. Order several—shipping/ 
handling per order: USA $3.50/Canada $6/Other 
countries S15. CA residents add appropriate sales 
tax. Allow 3-4 weeks delivery (personal checks add 
2 weeks). Dealer and corporate inquiries welcome. 


Flipkit — Micro Direct International/Lotus 1-2-3, Symphony —Lotus Development Corp./ 
MultiPlan, MS Word, MS DOS — MicroSoft Corp./pfs: write — Software Publishing Corp./ 
Framework, dBase Ill—Ashton Tate/IBM Writing Assistant, Filing Assistant, Reporting 
Assistant — International Business Machines Corp./MultiMate — MultiMate International 
Corp./WordStar —MicroPro International Corp./Crosstalk XVI—Microstuf, Inc./ 
Thinktank — Living Videotext, Inc. 





Circle no. 30 on reader service card. 
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that the size of the compiled and as- 
sembled code increases a bit. 

The Mathpack manual is only 10 
pages long with six chapters; it 
spends most of its time on installation 
and additions to the function library. 
You'll have to know how to make use 
of FLOAT and LONG before the 
Mathpack will do you much good. 

In summary, if you want to learn C 
or if you already know a bit about the 
language and want an inexpensive 
but powerful implementation for 
your CP/M computer, my first choice 
would be the Software Toolworks C/ 
80 and an introductory book. If you 
want an enhanced 32-bit capable C, 
add the Mathpack. For under $80.00 
you can’t miss. 


Disk Maker | 
Company: New Generation Sys- 
tems, 1800 Michael Faraday 
Drive, Suite 206, Reston, VA 
22090 
(703) 471-5598, 
(800) 368-3359 
Operating System: CP/M 2.2 
Price: $1695.00 
Circle Reader Service No. 103 
Reviewed by Jim Kronman 


Disk Maker I from New Generation 
Systems offers a practical solution to 
the virtual Tower of Babel that exists 
in the world of CP/M and MSDOS 
disk formats. Acting as a peripheral 
device in an S-100 system, Disk Mak- 
er I can format, read, write, and du- 
plicate over 170 disk formats (at the 
time of this review—the total grows 
every month or two), allowing you to 
copy virtually any soft-sectored for- 
mat and transfer disk files between 
various CP/M and MSDOS disk for- 
mats. An optional file transfer utility 
program transfers files from Dec- 
Mate II and Wang OIS word process- 
ing disk formats. 

The standard Disk Maker I pack- 
age consists of an S-100 disk control- 
ler board capable of supporting up to 
four disk drives, a 48 track-per-inch 
(tpi), double-sided 54-inch disk drive 
with power supply in a fan-cooled 
cabinet, and the Disk Maker soft- 
ware. Other disk drives for Disk 
Maker are a 96 tpi 54-inch drive, a 
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135 tpi 32-inch drive, or a 96 tpi 1.2 
Mb IBM PC/AT drive (as used in the 
IBM PC/AT) installed in the cabinet 
with the 48 tpi drive. A double-sided 
double-density (DSDD) 8-inch drive 
with its power supply in a separate 
cabinet is also available. Software op- 
tions are the word processing transfer 
utilities and disk drive test software. 
If you don’t have an S-100 system, 
do not stop reading: New Generation 
Systems also offers a stand-alone 
Disk Maker II system. It is a 6 MHz, 
Z80, 64K CP/M 2.2 system that in- 
cludes one DSDD 8-inch drive and 
one 48 tpi, DSDD 5%-inch drive plus 
the same software provided with Disk 
Maker I. You can add the same op- 
tions described for Disk Maker I, up 
to a total of four drives; a 10 Mb hard 
disk option is also available. Having 
reviewed the manual for the Disk 
Maker II (but not having used the 
equipment), I am reasonably confi- 
dent that my remarks about Disk 
Maker I will be applicable to the op- 
eration of Disk Maker II as well. 
The Disk Maker I controller uses 
the Western Digital 1795 controller 
chip, allowing the software to read or 
write disks in all 170-plus formats 
shown in the Table on page 101 (if 
you have the appropriate drives, of 
course). Disk Maker I cannot accom- 
modate some disk formats such as Ap- 
ple, NorthStar, Micropolis, Commo- 
dore, and Victor; these formats either 
are hard-sectored or depend on special 
tricks in the disk controller hardware. 
When you have the optional 96 tpi 
5%-inch drive installed, the software 
allows you to set the 96 tpi drive as a 
read-only drive for a 48 tpi format; 
this allows you to transfer files from 
one 5%-inch disk to another without 
having to do an intermediate copy. 
With the two 54-inch drives set to 
the same format, rapid disk duplica- 
tion is possible using the DUPE utility 
program. New formats are added 
regularly, and New Generation Sys- 
_tems offers each upgrade to current 
users for only $50. 


Programs 
The Disk Maker I software includes 


these programs: 


DMINSTAL.COM—sets_ user-deter- 


mined and system-dependent options 
DMSET.COM—loads Disk Maker 
BIOS into the system 
DMFORM.COM—formats disks 
WHATDISK.COM—determines ex- 
act format of IBM, Z-100, or Morrow 
disk 

MC.COM—Mass Copy, a file copy 
program 

DUPE.COM—rapid_ track-for-track 
copy program with optional verify 
DMCOMP.COM—rapid track-for- 
track compare program 
TOMS.COM—CP/M < = > PCDOS 
file exchange utility 


Various public domain utilities such 
as SWEEP and D normally are pro- 
vided on the distribution disk as space 
permits. Two or more versions of 
DMSET and DMFORM are provided 
to accommodate various hardware 
peculiarities. 
The optional software is: 


DDD.COM—disk alignment program 
used with special disks 
DEC2CPM—utility to transfer files 
from DecMate II word processor to 
CP/M 

WANG2CPM—utility to transfer 
files from Wang OIS word processor 
to CP/M 


Requirements 
Disk Maker I is designed to operate 
under standard CP/M 2.2 with an 
8080, 8085, or Z80 CPU. New Gener- 
ation Systems recommends using it 
with a standard CP/M system only, 
but I run it with CP/M 2.2 and ZCPR, 
version 1, without any problems. The 
controller board and Disk Maker soft- 
ware normally use ports 98 to 9F 
(hex), but New Generation Systems 
provides software and hardware mod- 
ification instructions to relocate the 
ports to other addresses if you have an 
unresolvable conflict in your system. 
Although a 64K system is recom- 
mended for Disk Maker I, it will run 
in as little as 48K. The more disks you 
attach to the Disk Maker, the more 
memory the software requires. When 
you use the TOMS utility, a smaller 
TPA means that you may not be able 
to handle a full directory on an 
MSDOS disk; my 57K system will 
handle the maximum. Double-density 
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Apricot CP/M-86 3” (SSD) ) 
Access (SSDD) 
AMPRO (SSDD) 
Balcones BRAVO (DSDD) 
BY AD (SSDD) 
Compuview CP/M-86 (SSDD ) 
Cromemco (SSDD) 
Davidge 1024 (DSDD) 
Digilog (DSDD) 
Epson QX-10 CP/M (DSDD) 
Fujitsu Micro 16s (DSDD) 
Heath H-37 (DSDD) 
Heath w/Magnolia (SSDD) 
IBM PC (CP/M-86) (SSDD) 
TCL PCl 10,30,31.32. (DSDD) 


SSDD ) 
SSDD ) 
DSDD) 
DSDD) 
Morrow Micro Dec I/II(SSDD) 
Morrow Micro Dec 11 (DSDD) 
NCR Decision Mate V_ (DSDD) 


KayPro II ( 
( 
( 
( 
( 
! 

NEC PC-8000 Series on 
( 
( 
( 
( 
( 


Lobo Max-80 
Lobo Max-80 35tk 
Microbee 


Osborne DD/Executive (SSDD) 
PMC 101 (CP/M 3.0) DSDD ) 
SD Sales SSSD) 
Sharp 3540 DSDD ) 
SuperBrain DSDD ) 
TeleVideo 802/3/6 DSDD) 


TI Professional (SSDD) 
TRS-80 Mod I Omikron (SSSD) 
TRS-80 Mod III MM (SSDD) 
TRS-80 IV Montezuma (SSDD) 
Xerox 820 (SSSD) 
Zenith Z-100 (SSDD) 
Zenith Z-100 (orig) (DSDD) 
ALTOS 586 ee 
AMP RO 96(DSDD) 
Archives I 96(SSDD) 
Associate + 96(DSDD) 
CompuStar 40 96(DSDD) 
Digilog DBS 16 96 (DSDD) 
Discovery 96(DSDD) 
Eagle III 96(DSDD) 
Facit DIC 96(SSDD) 
Heath H-37 96(DSDD) 
ICL Model 25 96(DSDD) 
IMS (TurboDos) 96(DSDD) 
Ithaca 525 96(SSDD) 
Lobo Max-80 96(DSDD) 
Monroe 0C8820 96(SSDD) 
MultiTech MIC-504 96(DSDD) 
Olympia People 96(DSDD) 
Otrona ue 
Philips 3000 96( SSDD 


306K 


169K = Actrix Matrix —— (DSDD) : 
188K  AMPRO _ (DSDD) 
346K  Bondwell Model. 14/16 (DSDD ) 
154K Casio FP 1000/1100 (DSDD) 
193K  Cromemco (SSSD) 
188K Cromemco C-10 (DSDD) 
366K DEC VI1S0 (SSDD) 
332Kk.—s Eagle | (SSSD) 
378K Epson QX-10 MF (DSDD ) 
314K Heath H-3/7 (SSDD) 
304K Heath w/CDR Systems (DSDD) 
162K HP 86/87/125 (DSDD) 
154K IBM PC (CP/M-86) (DSDD) 
254K Insight Dev. 1Q-120 (SSDD) 
191K  KayPro 4/10 (DSDD ) 
164K Lobo Max-80 35tk (SSDD) 
296K Microbee (DSSD) 
386K Molecular 9X (DSDD) 
186K Morrow Micro Dec III (DSDD) 
384K MultiTech MIC-501 (SSDD) 
304K NEC PC-8000 Series (SSDD) 
300K Osborne (SSSD) 
183K  Otrona Attache (DSDD ) 
386K Sanyo 1000/1100/1150 (DSDD) 
7iK SD Sales (SSDD) 
292K  SuperBrain (SSDD) 
340K  Systel III (DSDD) 
340K TeleVid. 806 TurboDos(DSDD) 
154k =loshiba [100 (DSDD) 
70K TRS-80 Mod I Omikron (SSDD) 
186K  TRS-80 Mod IV (SSDD) 
166K Versa Floppy II (DSDD) 
62k. =—s Xerox 820 -(SSDD) 
148K =Zenith Z-100 (DSDD) 
304K Zorba (DSDD) 
700K  AMPRO 96(SSDD) 
782K = Analyzer 96(DSDD) 
386K Archives II 96(DSDD) 
786K  CompuPro 10 96(DSDD) 
786K DEC Rainbow 96(SSDD) 
780K Direct OA1000 96(DSDD) 
624K Eagle I1/1V 96(SSDD) 
762K Epic 96(DSDD) 
308K Heath H-37 96(SSDD) 
624K Honeywell | 96(DSDD) 
628K ICL Model 35 96(DSDD) 
772K Intel iPDS 96(DSDD) 
346K Ithaca 525 96(DSDD) 
698K  MACSYM 150/350 96(SSDD) 
306K Monroe 2000 96(DSDD) 
698K NCR Work Saver 96(DSDD) 
618K OSM Zeus 4 96(DSDD) 
770K Philips P2000C ae 
294K Pied Piper 96(DSDD 
Table 


Intertec Headebart eaeceaiy 


Disk Maker | Formats 
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(Continued on next page : 


346K 


SOCK CC 
81K 


386K 
169K 


278K 
148K 
380K 
248K 
314K 
146K 
394K 
142K 
1/1k 
338K 
384K 
168K 


169K 


90K 
360K 
310K 
112K 
162K 
346K 
396K 
254K 
131K 


154K 
278K 
155K 


304K 
388K 
386K 
620K 
786K 
1726 
386K 
622K 
386K 
782K 
308K 
632K 


718K 


608K 
628K 
308K 
628K 
544K 
620K 
628K 





386K 


776K _- 
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~ Sanyo 1200/50 


96(SSDD) 307K — 


| 6(DSDD) 620K 
“Sanyo 4050. 6(DSDD) 620K TeleVideo 1603 96(DSDD) 706K 
Vector 4-S 6(DSDD) 712K Vector VSx 96(DSDD) 710K 
ALTOS "(SSDD) 446K  =CCS (256b) 8"(SSDD) 482K 
CUS (1024b) 8"(SSDD) 596K Colonial Data SB80 8"(SSDD) 596K 
Colonial Data SB80 8"(DSDD)1208K Columbia 1800 8° (SSDD) 592K 
CompuPro (1024b) 8"(SSDD) 596K  CompuPro (1024b) 8"(DSDD)1192K 
CP/M SSSD Standard 8"(SSSD) 241K Delta Products 125 8"(DSDD)1212K 
Harris 1685-50MFT 8"(SSDD) 596K Harris 1685-50MFT 8"(DSDD) 968K 
Harris 1685-50MFT 8"(DSDD)1196K IBM 3740 TO Direct 8"(SSSD) 248K 
IBM 5520 WP "(DSDD)1132K IBM 128b no skew 8&°(SSSD) 241K 
IBM 256b no skew "(SSDD) 482K = Insight 10-120 8"(SSDD) 484K 
Megaflex Apple "(SSDD) 558K Molecular 8"(SSDD) 496K 
NEC APC CP/M-86 “ADSOD) 980K S. D. Sales €128b) 8° (SSDD) 464K 
Ss D. Sates (2566) 8°(SSDD) 476K = =Tarbell (128b) 8"(SSDD) 472K 
TRS-80 11,12/6 P&T 8°(SSDD) 596K  TRS-80 I11,12/6 P&T 8"(DSDD)1210K 
TRS-80 Lifeboat ‘(SSDD) 482K  TRS-80 Lifeboat 8"(SSDD) 596K 
Vector 2800 ‘(DSDD) 984K Zenith Z-100 8"(SSDD) 482K 
Zenith Z-100 ‘(DS0D) 980K ACT Apricot .MSDOS 3°(SSDD) 314K 
HP - 150 MSDOS 3"(SSDD) 258K Intertec H-S MSDOS 3"(SSDD) 395K 
IBM PC PCDOS1.1(SS0D) 156K IBM PC PCDOS1.1(DSDD) 315K 
IBM PC PCDOS2.0(SSDD) 175K IBM PC PCDOS2.0(DSDD) 354k 
IBM PC-AT PCDOS3.0(DSDD)1186K Kaypro 10 MSDOS (DSDD) 354K 
Wang MSDOS  (DSDD) 354K ‘Zenith ZDOS. 1.1(DSDD) 315K 
BurroughsB25 MSDOS 96(DSDD) 610K DEC Rainbow MSDOS 96(SSDD) 384K 
Eagle 1600 MSDOS 96(DSDD) 785K Monroe MSDOS 96(DSDD) 712K 
NCR D-M "M" MSDOS 96(DSDD) 790K  Otrona MSDOS 96(DSDD) 712K 
Sanyo MBC MSDOS 96(DSDD) 792K Tandy 2000 MSDOS 96(DSDD) 714K 
Lomas Data . MSDOS 8°(SSSD) 239K NEC APC MSDOS 8"(DSDD)1221K 
Standard MSDOS 8” (SSSD) 246K Zenith Vi.1 ZDOS 8° {(SSSD) 245K 
NOTE: all formats 5 1/4" 48 tpi, CP/M-80/86 unless noted as: 
3 = 3 1/2 inch format | 
8 - 8 inch format 


70 = 


8-inch formats and the IBM PCAT 
drive require at least a 4 MHz system 
clock; otherwise, a 2 MHz clock 
should be sufficient. 

Installation of the Disk Maker I 
hardware is as easy as plugging the 
disk controller board into an empty 
slot in your S-100 bus motherboard 
and connecting the disk cable be- 
tween the disk cabinet and the con- 
troller board. A menu-driven instal- 
lation program allows you to 
customize some features of the sys- 
tem to your hardware and personal 
taste; the installation process takes 
only a few minutes. 
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96 tpi 5.1/4 Inch format 
SS = Single Sided; DS = 
SD = Single Density; DD = 


Double Sided 
Double Density 


Table 
Disk Maker | Formats 


How It Works 

Disk Maker I is simple to use. To for- 
mat a disk, type DMFORM to invoke 
the format program, then choose a 
format by number from the on-screen 
menu. You can also. invoke 
DMFORM by making a format 
choice on the command line; the pro- 
gram proceeds without showing you 
the menu. You can return to the 
menu if you want to change your se- 
lection. DMFORM will verify a disk 
after formatting if you set a perma- 
nent option with DMINSTALL or 
specify verification on the command 
line when you invoke DMFORM. 


The DMSET program gives you ac- 
cess to the Disk Maker disk drives. 
You use DMSET the same way you 
use DMFORM: you can choose from 
a menu or go directly to work by 
specifying a format on the command 
line. You can set each Disk Maker 
drive to a different format. Every 
time you warm boot, the Disk Maker 
software displays the disk formats 
you have selected. 

DMSET installs a special BIOS un- 
der your normal CP/M system; you 
can run any CP/M program that will 
fit in the somewhat reduced memory 
left for applications. Even though 
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there is less memory, I have found it 
adequate for running any of my utili- 
ties, dBASE II or my text editor 
(which does bidirectional scrolling 
through a disk file). You probably 
will notice the memory reduction the 
most when you run a spreadsheet 
program or any other application 
that uses all available memory but 
does not scroll data to and from disk, 
the way many text editors do. 
Because of the radically different 
structure of MSDOS files, you need a 
special program called TOMS (TO 
MSDOS) to access individual disk files 
on a MSDOS disk. You cannot run an- 
other program while using TOMS; if 
you want a CP/M application to ac- 
cess a MSDOS data file, you first must 
transfer the file to a CP/M format. 
TOMS is like a small part of the 
MSDOS operating system, providing 
the commands DIR, COPY, TYPE, 
and ERASE. TOMS cannot deal with 
subdirectories, so all files must be in 
the root directory on a MSDOS disk 
coming into the system; all files writ- 
ten by TOMS are in the root directory. 


Performance 
I have been using Disk Maker I for 
well over a year. The capabilities of 
the system are impressive, but even 
more impressive is the support New 
Generation Systems provides. I was 
an early user and, as you might ex- 
pect, everything did not start out 
working perfectly. One annoying 
problem was caused by the routing of 
the data cable in the disk drive cabi- 
net. The cable was picking up noise 
from the power supply, which gave 
me errors when reading the inner 
tracks of the 48 tpi drive. I solved the 
problem by changing the routing of 
the cable at the suggestion of New 
Generation Systems, but in the 
meantime, I received a replacement 
48 tpi drive that had been specially 
aligned and certified. I have always 
received courteous and competent as- 
sistance anytime I have had a reason 
to call New Generation Systems with 
a problem or a question. You can ex- 
pect the same treatment. (I was deal- 
ing with New Generation Systems as 
just another user, before I had 
thought of doing this review. ) 

The Disk Maker I hardware con- 
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sists of off-the-shelf components inte- 
grated by New Generation Sys- 
tems—nothing “‘razzle-dazzle” but 
obviously chosen carefully for quality 
and value. What makes the Disk 
Maker I package outstanding is the 
software and support. The programs 
perform well and are easy to use. The 
no-nonsense operator interface was 
designed for users who need to get 
things done quickly. 

Although the software is not 
friendly in the current sense of having 
elaborate menus and on-line help fa- 


cilities, each user prompt and pro- 
gram response is clear in its meaning. 
With one exception, which I will dis- 
cuss later, all errors are trapped 
cleanly and appropriate error mes- 
sages appear on the screen. The user 
interface is appropriate for the in- 
tended users of this package: soft- 
ware professionals, experienced com- 
puter users, and serious hobbyists 
with a need to transfer files between 
diverse disk formats. Operation is 
simple enough for a novice to use the 
system, too. 





Evolution. 


Now FoxBASE, the dBASE II source- 
compatible interpreter/compiler, is even 
better than before. Automatic 8087 co- 
processor support allows you to perform 
numeric computations with lightning speed. 
Fourteen-digit precision gives you 40% 
greater accuracy than dBASE II. The fact 
that FoxBASE is not copy protected means 
you can easily load it onto your hard disk. 
What's more, FoxBASE comes complete with 
a NO-RISK demo plan. 

Of course, FoxBASE still offers all of 
the features that dBASE II does... PLUS 
® Runs 3 to 20 times faster ® Permits up to 
48 fields/record...50% more than dBASE II 
© Supports full type-ahead ® Compiles pro- 


Developed by 


DACOR 


COMPUTER SYSTEMS 


dBASE II is a trademark of Ashton-Tate. 
UNIX is a trademark of AT&T 
FoxBASE is a trademark of Fox Software Inc. 


gram sources into compact object code ® Has 
twice as many variables ® Comes with a so- 
phisticated online manual and HELP facility. 

FoxBASE is currently available on a wide 
range of machines: IBM-PC, IBM-PC/XT/AT, 
COMPAQ & IBM compatibles, Tl Professional, 
DG Desktop, and DG MV-Series to name just 
a few. And it will soon be available on the 
Molecular and NCR Tower computers as well. 
Call or write today for more information. 


MS-DOS: DevelopmentPkg. $395 
Runtime Pkg. $695 
AOS/VS: Development Pkg. $995 
Runtime Pkg. $1995 


UNIX and XENIX: (To Be Announced) 


from FOX SOFTWARE INC. 


13330 Bishop Road, P.O. Box 269, Bowling Green, OH 43402 / 419-354-3981 / TWX 810-499-2989 


Circle no. 40 on reader service card. 
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Nee 
FORTH 


for the Apple® | [ 


Fixed point speed can rival that of float- 
ing point hardware. But the details have 
been a well kept secret—until now. The 
following graphs were generated by fixed 
point examples from the ISYS FORTH 
manual. 


Parallel Resonance with Damping 
BASIC 213 sec ISYS FORTH 27 sec 


Hydrogen 3p Orbital Cross-section 
BASIC 492 sec ISYS FORTH 39 sec 


Fast native code compilation. Sieve 
benchmark: 33 sec 

Floating Point—single precision with 
trancendentals 

Graphics—turtle & cartesian with 70- 
column character set 

Double Precision including D*/ 

DOS 3.3 Files read & written 
FORTH-83 with standard blocks 
Full-Screen Editor 

Formatter for word processing 

Macro Assembler 

Price: $99, no extra charges 


ILLYES SYSTEMS 
PO Box 2516, StaA 
Champaign, IL 61820 


Technical Information: 
217/359-6039, mornings 


For any Apple ][ model, 48K or larger. 
Apple is a registered trademark of Apple 
Computer. 





Circle no. 48 on reader service card. 
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The Disk Maker I (and Disk Mak- 
er II) documentation is well orga- 
nized and appropriate for the intend- 
ed users. The User’s Manual for Disk 
Maker I contains over 50 pages with 
a good table of contents in a three- 
ring binder. The table of contents is 
adequate for using the manual: no in- 
dex is provided and none is needed. 
The manual, prepared with a word 
processor, is much cleaner in appear- 
ance than most manuals prepared 
this way. It is relatively easy to flip 
through the pages and spot whatever 
you are looking for. 

New Generation Systems has as- 
sumed that you already know how to 
use CP/M and your computer. The 
manual will say “copy this file to an- 
other disk” rather than give a blow- 
by-blow description of how to use the 
file copy utility. There is a section ti- 
tled “How To Run Disk Maker With- 
out Reading The Manual” for the im- 
patient and for the technical-minded a 
section on each program called “How 
xxxx Works” that explains the inner 
workings of the program. 

I have validated Disk Maker’s abili- 
ty to format, read, or write disks in 
about 20 of the 170 available formats. 
I have used Disk Maker primarily to 
move files between an S-100 system 
and an Osborne I (double density) or 
between the S-100 system and a 
PCDOS system. Other than the read 
errors I encountered (now fixed), the 
Disk Maker hardware and software 
have performed flawlessly for me. 

I have encountered a few instances 
where it has been necessary to bulk 
erase a disk and format it with Disk 
Maker I because, if I wrote on a disk 
already formatted by the receiving 
system, that system could not read 
the disk. 

Although Disk Maker I is easy to 
run, one enhancement would be wel- 
come. The Disk Maker I software as- 
sumes you know what disk format 
you are dealing with. If you tell it you 
are feeding it a disk of format X and 
then give it a disk of format Y, you 
may or may not get an error message; 
the program you run could go merrily 
along without complaint, producing 
either garbage files or a disk that the 
target system cannot read. The Disk 
Maker software cannot identify posi- 


tively that you have inserted the cor- 
rect disk format in the drive being 
written to because no standard means 
of identification exists for a blank 
formatted disk; even if you determine 
the sector size, sectors per track, and 
so forth, you still cannot deduce the 
directory size and other characteris- 
tics needed for positive identification. 

WHATDISK enables you to deter- 
mine which of several similar formats 
a disk might be, if you already know 
that the disk is for IBM PCDOS, 
Heath/Zenith Z-100, or Morrow 
Micro Decision. A_ generalized 
WHATDISK program to identify any 
disk format would be very useful. 
Such a program is impossible to 
write, however, for the above reasons. 


What You Pay 

The basic Disk Maker I, which in- 
cludes the controller board, one 48 
tpi, DSDD 5'%-inch drive, and the 
Disk Maker software is $1695. The 
96 tpi, DSDD drive is an additional 
$395. The 8-inch drive and cabinet 
for Disk Maker I is $849. The 34- 
inch drive costs $295, and the PCAT 
drive is $495. The word processing 
transfer utilities package is $295, and 
the disk testing software is $150 plus 
$40 each for the 48 and 96 tpi Dysan 
test disks. You also can purchase the 
Disk Maker I controller and software 
with no drives. 

The basic Disk Maker II system is 
$3395 for the stand-alone 6 MHz 
Z80B system with one DSDD 8-inch 
drive, one 48 tpi, DSDD 5'%-inch 
drive, and CP/M 2.2; you only need to 
add a terminal. The option prices are 
the same as for Disk Maker I, and a 
second DSDD 8-inch drive costs $600. 

Are these prices reasonable? It de- 
pends on what you need. Programs 
for the Kaypro, IBM PC, Morrow, 
and other computers that allow you 
to read, write, and format a number 
of 5%-inch formats cost less than 
$100, but don’t ask them to recognize 
an 8-inch disk drive, a PCAT drive, or 
a 32-inch drive. At the other end of 
the spectrum are systems that claim 
less capability than Disk Maker II 
and cost over $5000. Disk Maker I 
and Disk Maker II offer outstanding 
versatility and performance for the 
money. 
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5 - i 3 = 
eS eee pager Se — The universal, super-efficient 
Lisp for PC-DOS, MS-DOS, 

CP/M-86 and CP/M-80 

systems. 
Waltz Lisp is a very powerful and complete 
implementation of Lisp. It is similar to Franz (the 
Lisp running under Unix), and is substantially 
compatible with MacLisp and other mainframe 
Lisps. 


In independent tests, Waltz Lisp 
SUI was up to twenty(!) times faster 


than competing microcomputer Lisps. 


e Only $49.95 plus shipping e Separate data,program, 

e 8080 to Z-80 Source Code common and absolute pro- 
Converter gram spaces 

e Generates Microsoft com- e Customize the Macro 


patible REL files or INTEL Assembler to your require- 
compatible hex files ments with installation 


Compatible with Digital eee 
¢ Compati s 
Research macro assem- ancl ats 
blers MAC & RMAC ( 
= e Z-80 Linker and Library 
e Generates Digital Research Manager for Microsoft com- 
compatible SYM files patible REL files available 


¢ Full Zilog mnemonics as a total package with 


Macro Assembler for only 


The interpreter can directly 

Easy fo use. load program files created 
with any ASCII text editor. Full debugging and 
error handling facilities are available at all times. 


¢ Conditional assembly e Manual only is $15 No debuggers to link or load. 


2 Random file access, binary file 
ae Support, and extensive string 
operations make Waltz Lisp suitable for general 
programming. A text-file difference program and 
other utilities are included in the package. 


_ TO ORDER, CALL TOLL FREE: 1-800-367-5134 
| For information or technical assistance: 
Specify desired 54" or 8" soft-sectored format. Personal check, cashier's c 
_ COD welcomed. 5 for postage and handling. _ 


Tl Kee. Box 2151. 
@vf@ & Honolulu, H 


demark of Zilog, inc. MAC, RMAC, and ZSID are trademar 





Functions of type lambda (expr), 

i a nlambda (fexpr), lexpr, macro. 

Splicing and non-splicing character macros. Full 

Suite of mappers, iterators, etc. Long integers (up 

to 611 digits). Fast list sorting using user defined 

comparison predicates. Built-in prettyprinting and 
formatting facilities. Over 250 functions in all. 


: Transparent (yet programmable) 
wT! handling of undefined function 
references allows large programs to reside partially 
on disk at run time. Optional automatic loading of 


initialization file. User control over all aspects of 
the system. Assembly language interface. 
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EXPERT SYSTEMS 


“INSIGHT is essentially the equivalent or better than 
any other tool available for the personal computer.” 


Paul Harmon. author of Expert Systems, Artificial Intelligence in Business 


i] 


Each function is 
TL ATUL described in detail 


The 300+ page manual includes an exhaustive 
index and hundreds of illustrative examples. 





Order Waltz Lisp now- and receive free our 


PROLOG interpreter 
Clog Prolog is a tiny (but very complete) Prolog 
implementation written entirely in Waltz Lisp. In 
addition to the full source code, the package 
includes a 50 page Clog manual. 


16-bit versions require DOS 2.x or CP/M-86 and 90K 

SS RAM (more recommended). 
Z-80 version requires CP/M 
2.x or 3.x and 48K RAM 
minimum. Waltz Lisp runs on 
hundreds of different com- 
puter models and is available 
in all disk formats. 


169% 


*Manual only: $30 (refund 
able with order). Foreign orders: add $5 for surface mail. 
$20 for airmail. COD add $3. Apple CP/M. hard sector, 
and 3” formats add $15. MC/Visa accepted. 


Turn your PC into an expert. Insight 2 is more than just an 

| “expert.” It’s a knowledge base 
engineering tool with application 
capabilities. It can call up Pascal 
programs, read and write dBASE Il® 
files, and its decision-making pro- 
Insight not only Etnies access cess can tie in directly to your 

to lots of information, it analyzes existing databases. Run-only ver- 
and offers solutions. For entry-level sions also can be developed and 
operators it’s a perfect procedural distributed. 

training package to help build ? 
and implement knowledge base 
software. 


Give it Insight, or give it Insight 2. 
Both let you create knowledge base 
systems using any PC-compatible 
text editor. 


Se 





WALTZ LISP 


esas Aas Ho 


Two unique packages from the 
same expert idea. 


aa a eek 


‘For further information or to order calls <—— 


~" 1-800-LIP-4000 oePt.21 


in Oregon and outside USA call 1-503-684-3000 


™ 15930 SW Colony PI. 
Portland, OR 97224 
{2 ODE 


wmmmmmmns //V7E RIVA TIONAL 


Level Insight ™ ($95) and Insight 2"™ ($485) 
Five run on the IBM®PC, DEC® Rainbow, and 


Victor ® 9000. 
Research, Inc. 


4980 South A-1-A Melbourne Beach, Florida 32951 (305) 729-9046 
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Conclusion 

Disk Maker I is a solid product 
backed by a competent and coopera- 
tive company that operates as if it 
wants to remain in business for a long 
time. If you are a software developer, 
software distributor, user group, 
large office, or serious hobbyist with 
the need to exchange files between 
computers with various disk formats, 
you should seriously consider Disk 
Maker I or Disk Maker II as an an- 
swer to your needs. 


AMPRO Little Board and 

Bookshelf Computers 

Company: AMPRO Computers, 
Inc., 67 East Evelyn Ave., 
Mountain View, CA 94041 
(415) 962-0230. 

Price: $349 

Circle Reader Service No. 105 

Reviewed by Richard Conn 


The heart of the AMPRO Bookshelf 
Computer® is the AMPRO Little 
Board®, a full-featured single-board 
computer that measures only 5%- 
inch by 7%-inch and is designed for 
mounting on the back of a standard 
5%-inch minifloppy disk drive. Al- 
though it is small in size, the AMPRO 
Little Board is big in features: the 
Little Board contains all of the hard- 
ware necessary to support a conven- 
tional CP/M environment. 

The Little Board is based around a 
4 MHz Z80A microprocessor and the 
associated Zilog Z80 family of sup- 
port chips. On board this small com- 
puter is: 


e A 4 MHz Z80A microprocessor 

¢ 64K of dynamic RAM 

e One 4K 2732-type EPROM 

¢ A Z80A CTC (Counter/Timer 
Circuit) 

¢ A Z80 DART (Dual Asynchronous 
Receiver /Transmitter ) 

e A parallel output port (based on D- 


type latches) 
e A Western Digital 1770 Floppy 
Disk Controller Chip 


The AMPRO Bookshelf Computer 
is an AMPRO Little Board computer 
housed in an attractive case with one 
or two 5%-inch floppies, built-in 
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power supply, two 25-pin EIA RS- 
232C connectors, one Centronics con- 
nector, and a connector for tagging on 
up to two more 54-inch floppies. An 
ON/OFF switch and a RESET switch 
are available on the front panel. 


The AMPRO Little Board 
Computer 


Hardware 

The Little Board has two possible 
memory configurations, which depend 
on the setting of an EPROM-enable 
bit in the Board Control Register. En- 
abling the EPROM establishes the fol- 
lowing memory configuration: 


Address (Hex) Memory Element __ 
0000 - OFFF 2732 EPROM 
1000 - 7FFF 2732 EPROM 
duplicated on each 
4K group 
8000 - FFFF RAM 
If the EPROM is disabled, all memo- 
ry from 0 to OFFFFH is enabled as 
RAM. 

A Z80 DART and RS-232C line 
drivers provide the serial input /out- 
put ports. The DART is an asynchro- 
nous device, providing for baud rates 
up to 38,400 on its A channel and 
9600 on its B channel in the Little 
Board configuration. The Little 
Board does not implement all of the 
RS-232C signals on its two serial 
channels. Only the following signals 
are provided: 


¢ Serial Data Output (RS-232C pin 
3) 

¢ Serial Data Input (RS-232C pin 2) 

¢ Request to Send Handshaking 

| Output (RS-232C pin 5) 

¢ Clear to Send Handshaking Input 
(RS-232C pin 20) 


Both channels of the DART are 
wired as DCE (Data Communica- 
tions Equipment), which is the com- 
plement of DTE (Data Terminal 
Equipment)—the wiring of the RS- 
232C connector on computer termi- 
nals. Notably missing from this list is 
the Data Carrier Detect signal. You 
may use the Clear to Send signal in 
place of Data Carrier Detect. 

The parallel port is an output-only 


port, wired in a Centronics-standard 
configuration. The Z80 CTC on the 
Little Board provides four counter/ 
timers for use in conjunction with the 
hardware and software of the 
computer. 

The Western Digital 1770 Floppy 
Disk Controller chip used in the Lit- 
tle Board design can work with just 
under 400K per disk on double-sided, 
48 tracks-per-inch (TPI) drives and 
just under 800K per disk on double- 
sided, 96 TPI drives. 


Software 

The AMPRO Little Board is supplied 
with one copy of CP/M 2.2, which 
uses the ZCPR3 Command Processor 
in place of the CP/M CCP. Although 
only the ZCPR3 Command Proces- 
sor, in a less than maximum configu- 
ration, is provided with the Little 
Board, you can obtain a more com- 
plete ZCPR3 implementation from 
Echelon (see below). 

The ZCPR3 configuration distrib- 
uted with the Little Board provides 
CP/M 2.2 compatibility while simul- 
taneously presenting the following 
additional features: 


¢ Multiple commands per line, sepa- 
rated by semicolons, enabling 
command lines like DIR;ERA 
* BAK;DIR 

¢ Automatic command search path 
that searches through directo- 
ries in the following sequence 
when looking for COM files: (1) 
current disk, current user; (2) 
current disk, user 0; (3) disk A, 
current user; (4) disk A, user 0; 
(5) disk A, user 15; and (6) cur- 
rent disk, user 15 

e Four-element shell stack, so shells 
other than the ZCPR3 Com- 
mand Processor can act as the 
user interface to the system 

¢ Several built-in commands, includ- 
ing: GET—load file anywhere 
in memory; JUMP—call sub- 
routine anywhere in memory; 
and LIST—print file on printer 

e Extended directory references over 
normal CP/M: D:—reference 
disk (ep TYPE B:MYFILE- 
.TXT); U:—reference user area 
(e.g., DIR 5:); and DU:—refer- 
ence disk and user area (e.g., 
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ERA B7:*.*) 


See articles in Dr. Dobb’s, Com- 
puter Language, Byte, and other such 
magazines for more information on 
ZCPR3. The authorized agent for 
ZCPR3 is Echelon, Inc., 101 First St., 
Los Altos, CA 94022 (415) 948- 
3820. The ZCPR3 RCP/M and BBS 
are also available to you at 
(415) 489-9005. 

The nine standard CP/M utility pro- 
grams (ED, DDT, PIP, etc.) and thir- 
teen additional utility programs are 
supplied with the Little Board. Includ- 
ed in this list is MULTIDSK, which al- 
lows the user to dynamically select one 
drive to support any one of over 40 dif- 
ferent 5%4-inch floppy disk formats, 
and 48TPI, which allows the user to 
read 48 TPI disks on a 96 TPI drive. 

One nice option that AMPRO gives 
the customer is that of purchasing the 
source code to several key programs 
at a reasonable price. The customer 
may purchase the Technical Support 
Software package, which includes 
the source files for MULTIDSK, the 
BIOS, and the BOOT. 


Pricing 

The AMPRO Little Board computer 
costs $349. This price includes the sin- 
gle-board computer and all of the soft- 
ware listed above. An extra $50 buys 
the Technical Support Software 
package. 


The AMPRO Bookshelf Computer 


Hardware 

As mentioned above, the AMPRO 
Bookshelf Computer consists of an 
AMPRO Little Board, one or two 5'4- 
inch minifloppy disk drives, a built-in 
power supply, two 25-pin EIA RS- 
232C connectors, one Centronics con- 
nector, one connector for attaching up 
to two external minifloppy disk drives, 
and ON/OFF and RESET switches on 
the front panel. The Bookshelf is 


available in the following models: 


Model _Configuration 
121 One double-sided, 
48 TPI drive (400K) 


122 Two double-sided, 
48 TPI drives (800K) 
141 One double-sided, 
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96 TPI drive (800K) 
Two double-sided, 
96 TPI drives (1600K) 


142 


Software 

All of the software provided with the 
AMPRO Little Board is also provided 
with the AMPRO Bookshelf Comput- 
er. In addition, a ZCPR3 shell de- 
signed specifically for use on the AM- 
PRO computer is provided (in object 
code only). FRIENDLY is a screen- 
oriented tool that provides a directory 
of files to the user of the current disk 
and allows him or her to perform a 
variety of operations on the files dis- 
played. By simply moving a pointer 
to a desired file and pressing a few 
keys, a FRIENDLY user can copy a 
file, delete a file, view a file on the 
console, print a file on the printer, 
run a program, mark a file for later 
delete or copy with a group, perform 
a sequence of commands on the file 
based upon a preprogrammed menu, 
and perform many more operations. 

FRIENDLY is easy to use, usually 
requiring only a few minutes to learn, 
and it removes casual computer users 
from the CP/M command environ- 
ment, relieving them of the necessity 
of learning how to use CP/M in order 
to use the computer. 

A second software package provid- 
ed with the AMPRO Bookshelf is T/ 
MAKER, a product of T/MAKER 
Company. T/MAKER provides a 
screen-oriented, memory-based edi- 
tor, text formatter, electronic spread- 
sheet, bar graph generator, and file 
management system in one integrat- 
ed package. T/MAKER will run un- 
der conventional CP/M, CP/M en- 
hanced by the ZCPR3 Command 
Processor, or FRIENDLY. Several ar- 
ticles have already been published on 
T/MAKER, and you can obtain fur- 
ther information by writing to T/ 
MAKER Company, P.O. Box 6430, 
Falls Church, VA 22046. 


Documentation 

The documentation provided with the 
AMPRO Little Board is the Little 
Board User’s Manual, a mainly 
hardware manual that describes the 
Little Board in great detail. It is well 
written and clear if you have a back- 
ground in digital electronics. 


NEW FEATURES 


(Free update for our early customers!) 
e Edit & Load multiple memory 
resident files. 
e Complete 8087 assembler 
mnemonics. : 
e High level 8087 support. 


Full range transcendentals 
(tan, Sin, cos, arctan, 
logs and exponentials) 


Data type conversion and 
1/O formatting. 

e High level interrupt Support. 
Execute Forth werds from with- 
in machine code primitives. 

e 80186 Assembler extensions for 
Tandy 2000, etc. 

e Video/Graphics interface for 
Data General Desktop Model 10 


SF RTH 


e Fully Optimized & Tested for: 






















IBM-PC IBM-XT IBM-JR 
COMPAQ EAGLE-PC-2 
TANDY 2000 CORONA 





LEADING EDGE 


(Identical version runs on almost all 
MSDOS compatibles!) 


e Graphics & Text 
(including windowed scrolling) 


e Music - foreground and 
background 

includes multi-tasking example 
Includes Forth-79 and Forth-83 
File and/or Screen interfaces 
segment Management Support 
Full megabyte - programs or 
data 


e Complete Assembler 
(interactive, easy to use & learn) 


e Compare 

BYTE Sieve Benchmark jan 83 
HS/FORTH 47sec BASIC 2000 sec 
w/AUTO-OPT 9sec Assembler 5 sec 
other Forths (mostly 64k) 70-140 sec 

FASTEST FORTH SYSTEM 

AVAILABLE. 
TWICE AS FAST AS OTHER 
FULL MEGABYTE FORTHS! 


(TEN TIMES FASTER WHEN USING AUTO-OPT!) 
HS/FORTH, complete system only: $250. 

























wee Visa Mastercard rae 
Add $10. shipping and handling 


HARVARD 
SOFTWORKS 


P.O. Box 2579 
Springfield, OH 45501 
513/390-2087 
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No documentation on CP/M or the 
standard CP/M programs is provided. 
The first pages of the manual, howev- 
er, give pointers to where to obtain 
this documentation. Also, no docu- 
mentation other than a brief overview 
of ZCPR3 is provided. Again, the 
manual gives pointers to Echelon. 

If you buy the AMPRO Bookshelf 
Computer, you get the Little Board 
User’s Manual as well as documenta- 
tion on FRIENDLY and T/MAKER. 
The documentation on FRIENDLY 
and T/MAKER is oriented to comput- 
er users having some limited experi- 
ence with CP/M. 


General Impressions and 
Comments 

I have used the AMPRO Bookshelf 
for several months now. I started 
with the Model 122, which had two 
400K, 48 TPI drives, and am now us- 
ing the Model 142, which has two 
800K, 96 TPI drives. I find its clean 
design, speed, and reliability to be ex- 
cellent. Given my background in CP/ 
M and digital electronics, I found all 
of the documentation on the Little 
Board/Bookshelf to be readable and 
understandable. 

The Bookshelf is a nice computer 
for any user, especially with the 
FRIENDLY shell as a front end. Al- 
though it is a good choice for the first- 
time computer user, as with any com- 
puter, you must overcome a learning 
curve before you can expect effective 
use of the computer. 

The AMPRO BIOS performs well. 
The speed of the disks with this BIOS 
is nice: the disks are faster than most 
5%-inch disk systems I have observed 
and many 8-inch disk systems I have 
used. At 800K per disk with the Mod- 
el 142 (96 TPI drives), I find the disk 
capacity also to be quite reasonable. 

Overall, the AMPRO Bookshelf 
and AMPRO Little Board are good 
computers, but there are a few draw- 
backs for some applications: 

(1) Lack of documentation on CP/M 
and ZCPR3. However, AMPRO sup- 
plies pointers to where you can obtain 
such documentation, at additional 
cost. 

(2) Limitation of serial I/O ports to 
only two serial RS-232C ports and 
one parallel port. Nevertheless, if 
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your needs call for no more than a 
terminal, modem, and printer (as 
many popular computers are config- 
ured today), the AMPRO computers 
are adequate. 

(3) Lack of hard disk support and ex- 
pandability. The Little Board does 
not support hard disks or other such 
devices in its current form. You may 
buy, however, the Little Board SCSI/ 
PLUS Adapter for $99. This adapter 
“piggy-backs” on the Little Board 
and allows you to attach a Winches- 
ter disk drive, slave processor and de- 
vice boards (perhaps for I/O), and 
other facilities. This board, with 
some effort, may eliminate draw- 
backs 2 and 3. 

I am excited about the Little Board 
and the Bookshelf for their applica- 
tions in several environments. As a 
stand-alone personal computer with 
limited I/O resources and disk space, 
these computers are good choices. 
The SCSI/PLUS Adapter promises to 
expand their capabilities. 

For embedded computer applica- 
tions in which 4K of code is enough to 
run the application program, the Lit- 
tle Board provides a nice, inexpensive 
self-contained computer. The 4K 
2732 EPROM can be programmed for 
the application, and 32K of RAM is 
available for data. The two RS-232C 
ports are there, as well as the parallel 
output-only port. No disks would be 
needed for this type of application. 
For embedded computer applications 
with disks, the AMPRO Little Board 
would “piggy-back” on a 5%4-inch 96 
TPI minifloppy and feed off of the 
floppy’s power supply. This would 
provide a very small embedded com- 
puter with 800K of disk and 64K of 
RAM. 

As a slave computer to another 
computer, the AMPRO Bookshelf 
with its two disks could act as a back- 
ground batch processor, communica- 
tions controller (for a BBS), printer 
spooler, or other such intelligent and 
flexible slave device. 

Overall, I like the AMPRO Little 
Board and AMPRO Bookshelf and in- 
tend to continue using my Bookshelf 
for a variety of slave computer and 
stand-alone applications (such as 
computer assistance for talks and 
presentations). I recommend it with 


some reservation to first-time com- 
puter users and with no reservation to 
embedded applications designers and 
more experienced computer users. 


BetterBASIC, Version 1.1 

Company: Summit Software, 
P.O. Box 99, Babson Park, 
Wellesley, MA 02157 
(617) 235-0729 

Computer: IBM PC or close com- 
patible with minimum 192K 
and one disk drive 

Price: BetterBASIC $199; 8087 
Math Module $99; Runtime 
System $250 

Circle Reader Service No. 107 

Reviewed by Matthew Trask 


Among the reasons that Summit Soft- 
ware gives for purchasing BetterBA- 
SIC are full 640K memory support, 
separately compiled program mod- 
ules, language extensibility, window 
support, 8087 support, and incremen- 
tal compilation. Although these rea- 
sons would be persuasive in the case of 
another programming language, I 
question whether they will induce 
many programmers to shell out $199, 
the cost of BetterBASIC, when some 
form of GW BASIC (aka BASICA) is 
provided at no charge with most IBM 
type computers these days and an ex- 
cellent Pascal compiler can be pur- 
chased for less than fifty dollars. In 
order to help programmers make a de- 
cision on this purchase, I will discuss 
the unique features of this program- 
ming system, benchmark its perfor- 
mance, and examine the difficulties of 
converting programs from GW BASIC 
to BetterBASIC. 


Installation 

Although the package can be run 
right out of the box by using its de- 
fault configuration, you will probably 
want to configure it to suit your hard- 
ware environment. B.COM is the exe- 
cutable portion of BetterBASIC and it 
uses the file B.CNF to determine 
which of the other modules to load for 
operation. Table | (page 110) is a list- 
ing of all the modules that are provid- 
ed on the BetterBASIC disk and Table 
2 (page 110) shows the default config- 
uration. An ASCII editor can be used 
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Electronic 
Circuit 
Analysis 


e New release 

e Transient, AC, DC analysis 
e Full nonlinear 

¢ Over 200 nodes 

e Full editing 

e Macro circuits 

e Worst case, Monte-Carlo 

e Temperature effects 

e Frequency dependent parts 
e Time dependent parts 


For MS-DOS. 192k minimum. 
$395.00 


Tatum Labs 

33 Main Street 
Newtown, CT 06470 
(203) 426-2184 
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A Proffessional Quality Z280/8080/8085 Disassembler 


WHEN YOU NEED SOURCE FOR YOUR CODE 
you need REVAS 3 


REVAS interactively helps you: 
Analyse your software for modification 
disassemble files as large as 64K 
Assign Real labels in the disassembly 
Insert COMMENTS in the disassembly 
Generate a Cross Reference (XREF) listing 


A 60 page manual shows how the powerful REVAS 
command set gives you instant control over I/O to files, 
printer, or console; how to do a disassembly; and even 
how the disassembler works! You get on line help, your 
choice of assembler mnemonics, control of data 
interpretation, and calculation in any number basel 


REVAS runs in Z80 CPM computers; is available on 
8°’ SSSD (standard), RAINBOW, and other (ask) formats 


Price: $90.00 (plus applicable tax), Manual only: $15.00 


REVASCO 
6032 Chariton Ave., Los Angeles, CA90056 
Voice: (213)649-3575 Modem: (213)670-9465 
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Whether you program on the Macintosh, 
the IBM PC, an Apple II series, a CP/M 
© system, or the Commodore 64, your pro- 
oe gram will run unchanged on all the rest. If 
™ you write for yourself, MasterFORTH will 
hee your investment. If you somes 
write for others, it will expand ma 
your marketplace. sean 
MasterFORTH is a state-of-the-art imple- 
mentation of the Forth computer language. 
: Forth is interactive — you have immediate 
™ feedback as you program, every aes of the 
way. Forth is fast, too, and you.can use its << 
built-in macro assembler to make it even 
faster. MasterFORTH’s relocatable utilities, 
transient definitions, and headerless code = 
let you pack a lot more program into your memory. The 
resident debugger lets you decompile, breakpoint, and 
trace your way through most 
CP/M programming problems. A string 
7M package, file interface, and 
full screen editor are all standard features. 
MasterFORTH exactly matches the Forth-83 Stan- 
dard dialect described in Mastering Forth by Anderson 
and Tracy (Brady, 1984). The standard package in- 
cludes the book and over 100 pages of supplemen- 
tary documentation. 
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to add or delete modules and create 
new configurations. For example, us- 
ers that don’t have a graphics card 
may wish to delete GRAPHICS.IBM 
in order to free up memory for pro- 
gram use. I replaced FILE.DOS with 
FILE2.DOS in order to take advantage 
of DOS 2.x subdirectories and added 
SYSCALL.IBM in order to use the 
SHELL command and BIOS/DOS 
calls. You may specify the use of al- 
ternative configurations when starting 
the program by typing B-MYCON- 


| 45312 


_ 27020 

: ) 142 
MATH 
CONSOLE 
MAIN 
FILE 
GRAPHICS 
PLAY 
EVENT 
FILE2 
CHAIN 
SYSCALL 
COMM 
PLIST 
SECTOR 
STRUC 
SHELL 


3136 
77144 

21072 
2704 

- 3520 
— 8484 
2542 
6702 

_ 2980 
175 


CHAIN | its 


READ 
20 File(s) 


ae 
| 21392 
| 3840. 
- 19056 
7 10512 


126734 


FIG/c where MYCONFIG is the name 
of the optional configuration file. 

A Tandy 2000 version of the pro- 
gram is also available. The modules 
with the extension .IBM are all re- 
placed with equivalent modules that 
end with .TDY. 


Startup and Operation 

After a sign-on message and copy- 
right notice you will see the first major 
difference between BetterBASIC and 
GW BASIC: instead of the usual 


1-03-85 
1-03-85 
1-03-85 
1-03-85 
1-03-85 
1-03-85 
1-03-85 
1-03-85 
1-03-85 
1-03-85 
1-03-85 
1-03-85 
1-03-85 
1-03-85 
1-03-85 
1-03-85 
1-03-85 
1-03-85 
1-03-85 
1-03-85 
1024 bytes free 


a. Table 1 
Directory listing Gf the BetterBASIC diskette showing the many 
modules that make HP the Better BASIC system. 


MODULES = MATH.BCD 
MODULES = CONSOLE.IBM 
MODULES =MAIN 
MODULES =FILE.DOS 
MODULES = GRAPHICS.IBM 
MODULES=EVENT.IBM 
MODULES =PLAY.IBM 


STATUS=ON 


Table 2 
The default B.CNF configuration file. 
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‘60891 Bytes free” message, a 512K 
machine will display “‘Left:260304 
bytes.” All available system memory 
is used as BetterBASIC’s workspace. 
This allows much larger programs to 
be written. BetterBASIC supports 
most of GW BASIC’s commands, in- 
cluding the on-screen editing keys 
that are used on the IBM PC. Table 3 
(page 111) contains a complete listing 
of GW BASIC commands that are dif- 
ferent or not supported and a list of 
new commands that are found in Bet- 
terBASIC. 

Every statement that you enter is 
checked for syntax and then com- 
piled. If you make a mistake when 
entering a program line, an error 
message will be given immediately. 
For example: 


40 PRINT (1 + 2* 3 


‘* )” Expected 


If the statement is entered correctly, it 
is compiled to virtual-machine code 
rather than being interpreted at run- 
time, thus giving a large speed im- 
provement over the GW BASIC 
interpreter. 

As in Pascal and C, all variables 
are declared at the beginning of the 
program. The exception to this is the 
AUTODEF command, which allows 
automatic declaration of a variable 
by the first assignment of a value. 
AUTODEF defaults to ON, but if you 
turn it off, the compiler will catch 
misspelled variable names. The data 
types that are supported in BetterBA- 
SIC are byte, integer, real, string (up 
to 32,767 characters), array, pointer, 
and structure. Structures are identi- 
cal to Pascal’s record data type and 
may contain any other data type. Ar- 
rays can contain byte, integer, real, 
and string data as well as structures 
and other arrays, thus allowing ar- 
rays of arrays, arrays of structures, 
and structures of arrays. 

A BetterBASIC programming ses- 
sion superficially resembles one in 
GW BASIC in that lines are num- 
bered and most of the command 
keywords are identical. When saving 
to disk, however, you must specify 
the file’s extension because .BAS is 
not assumed by BetterBASIC. At the 
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end of a session you can exit to DOS 
with the SYSTEM command or by 
typing BYE. 


Unique Features of BetterBASIC 

The best feature of BetterBASIC is 
the use of true procedures with vari- 
ables of local scope that exist only in- 
side the procedure. Global variables 
can be used by declaring them as EX- 
TERNAL in the procedure and pro- 
viding the actual declaration at a lev- 
el outside the procedure. A procedure 
can be declared as RECURSIVE if its 
name is declared as EXTERNAL in- 
side the procedure. GOSUB and RE- 
TURN are both supported, but as you 


gain experience with BetterBASIC, 
they will probably fall by the wayside 
in favor of these Pascal-like, para- 
meterized procedures. In addition to 
passing arguments by value or refer- 
ence, you may specify optional and/ 
or default arguments. 

One particularly distinctive aspect 
of BetterBASIC is the ANY ARG dec- 
laration. This allows a procedure or 
function to determine what type of 
data was passed to it at runtime with 
the following functions: 


TYPE( ) extracts the type of da- 
tum 
DIMC( ) extracts the dimensions of 


a datum 
SIZE( ) extracts the size of a 
datum 


For example, A=TYPE(FOO) will as- 
sign the following values to A: 


if FOO is a byte 
if FOO is an integer 
if FOO 1s a real 
if FOO is a string 
if FOO is a structure 
0 +N if FOO is an array of 
above type N 


0 
l 
2 
3 
4 
| 


If TYPE(A) returns 3 for string you 


GW BASIC Statements Not Supported in BetterBASIC 


BLOAD BSAVE CDBL CSNG 

CVI CVS CONT DEFDBL DEFINT 

DEFSTR DEF FN DEF USR EQV 

ERL FIELD FRE GET IMP 

MERGE MKD MKI MKS 

ON PEN ON STRIG PEN PMAP 

RESUME STICK STRIG TROFF 

USR VARPTR VIEW WEND WINDOW 

New BetterBASIC Statements 

ANY ARG ASH AUTODEF 

BYTE BYTE ARG BYTE ARRAY 

BYTE PTR CHECK CODE 

COLOR BORDER COMPRESS CONSTANT 

DEL$ DO ..ENDDO DO IF 

DYNAMIC EDIT proc ERROR 

EXITn LEVELS | EXTERNALorEXT FRAME WINDOW 

INPUT FROM INS$ INTEGER or INT 

INT ARRAY INT ARRAY STRUC | INT FUNCTION 

INTERRUPT INTERRUPT PROC —=KEYWORD ARG 

LIST ALL LIST ARGS LIST PROCS 

MAIN MAKE MODULE. MAKE PROGRAM 

ONINTERRUPT — PRECISION PROCEDURE — 
or PROC 

READCHR READCHR FROM READLINE 

REAL REAL ARRAY REAL ARRAY 
STRUC 

REAL FUNCTION REALPTR REPEAT 

RESTORE SCREEN RESULT = ROT 

SAVE SCREEN SEG SET 

SIZE SPAN STRING or STR 

STR ARRAY STR ARRAY STRUC STRFUNCTION 

STRUCTURE UPPERS WHILE . . DO 

Table 3 


CVD 
ERASE 


MOTOR 
PUT 
TRON 


BYE 

BYTE ARRAY STRUC 
CODE? | 
DEFINE WINDOW 
DO UNTIL 

EXIT 

HEADER 

INT ARG 

INT PTR 

LINE$ 

LOWERS 

OFFSET 

PUBLIC 


READLINE FROM 
REAL ARG 


REPEAT IF 
SAVE MODULE 
SH 

STR ARG 

STR PTR 

XREF 


A comparison of BetterBASIC and GW BASIC Keywords 
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| Wet magi der the 
_ Macintosh™ | 


| Powerful, expandable, yet affordable: 
_ &@ A friendly, integrated environment complete with 
_ ascreen editor, full K&R C compiler, linker, 
source-level debugger, tutorial, standard € 
library, and structure definition files. 
® Access to over 400 Toolbox routines. 
@ Convenient access to serial ports and sound 
@ Over 200 pages of documentation and many 
sample programs. 
® Upgradable to Hippo-C Level 2 for $250.00. 
@ New version 1.2. 
®@ $149.95 




























LEVEL 2 

Professional C development system: 

@ Allows for the creation of large, stand-alone 
commercial applications. 

®@ Comes with a screen editor, optimizing K&R C 
compiler, 68000 assembler, linker, € library, 
stdio package, full floating-point support 
(including math and trig functions) , and 
structure definition files. 

@ “Glue” routines which allow easy access to 
Macintosh features. 

@ UNIX™ -like shell which includes many powerful 
commands and utilities. 

@ Convenient access to over 500 Toolbox routines. 

® Documentation, many sample programs, and 
sources. 

@ No royalties or license fees. 

® You may obtain a non-copy protected disk by 
signing and returning a form along with $25.00 
to Hippopotamus. 

m $399.95 


The Hippo Business Data 
Security System 


@ Encrypts all of your important Macintosh files to 
protect them from curious eyes. Encrypts Mac- 
Write documents, MacPaint pictures, data bases, 




















® Useful for protecting confidential information 
such as business plans, payroll information, sales 
projections, employee reviews, management pro- 
posals, grades, etc... 

® Choose between three levels of security. 

® Uses the NBS DES Data Encryption Standard, 

_used widely by major corporations and the U.S. 

Government. 

B $119.95 













- SOFTWARE.ING. 
1250 Oakmead Parkway Suite 210 
Sunnyvale, CA 94086 
| (408) 738-1200 







Lock are trademarks of 





subject to change without notice. 





Circle no. 23 on reader service card. 


112 







spreadsheets, data files, application programs, etc. 







_ orders. California residents add focal sales tax. Please include $10 
for shipping and handling. Export of Hippo-Lock may he limited by 
law and subject to license. Macintosh is a trademark of Apple Com- 

puter, lac. UNIX is a trademark of AT&T Bell Labs. Hippo-C and 
Hi i Software, Inc. Ptease 


allow 1-2 weeks for delivery. Price, availability, and specifications 





can determine its allocated size (not 
length) with SIZE(A). If FOO is a 
structure, DIM(A) will return the 
number of fields and TYPE(FOO(N) ) 
will return the type of field N. This 
flexibility of optional /ambiguous pa- 
rameter passing can be a tremendous 
improvement over Pascal’s rigid 
requirements. 

BetterBASIC has a concept called 
Procedure Families in which more 
than one procedure or function can 
have the same name with the only 
distinction being the parameter list. 
This allows BetterBASIC to select 
which one to use based on the type of 
argument that is used. As an exam- 
ple, the two procedures that follow 
can be used to give informative error 
messages on integer input, rather 
than GW BASIC’s cryptic ‘“‘Redo 
from start.” 


PROCEDURE: IntegerInput 

INT ARG Value 

10 INPUT Value 

20 PRINT “Your integer is ”’, 
Value 


PROCEDURE: IntegerInput.a 

STRING ARG SomeString 

10 PRINT SomeString, “‘is not a 
valid integer, please try again” 


In this example, IntegerInput.a will 
be used any time a valid integer is not 
entered when IntegerInput is called. 
This technique can also be used to as- 
sign additional functionality to Bet- 
terBASIC’s reserved words. 

Functions are similar to proce- 
dures in that they share all the same 
data types. The difference is that 
they are used in expressions to return 
a value that is used in the expression. 
The last statement of a function must 
be RESULT= and the value that is to 
be returned. 

Both procedures and functions can 
use KEYWORD ARGuments—a con- 
cept that is similar to Pascal’s user- 
enumerated data types. If an argu- 
ment is declared as 


KEYWORD ARG:Color 
\RED\GREEN\BLUE 


then the procedure will accept either 
RED, GREEN, or BLUE as valid data 


for Color. 

BetterBASIC has a full comple- 
ment of flow-controlling block struc- 
tures. In addition to the usual FOR- 
..NEXT, IF..THEN, and WHILE.- 
.REPEAT, BetterBASIC has DO 
UNTIL..REPEAT, DO..REPEAT, DO 
n TIMES..REPEAT, DO..END DO, 
DO:.;:REPEAT, DO TE:-REPEAT IF, 
and more. GOTOs are implemented 
in a way that could placate even Dijk- 
stra—they cannot be used to enter or 
exit a control block. The only way out 
of a control structure is via the EXIT 
statement, and then only to the state- 
ment that immediately follows the 
block. 

Variables can be declared as abso- 
lute by adding a segment and offset 
after the declaration. BYTE ARRAY- 
(4000):VideoBuffer [&hB000:0] is 
an absolute reference to the IBM’s 
2000 character monochrome video 
refresh buffer. This technique can be 
used to access the BIOS communica- 
tion area in low memory for equip- 
ment determination. 

The BetterBASIC language can be 
extended by adding your own proce- 
dures and functions to the language 
as keywords. The MAKE MODULE 
command will convert all procedures 
and functions currently in memory to 
a module that can be added to the 
B.CNF configuration file. Like C lan- 
guage function libraries, useful pro- 
cedures can be distributed to other 
BetterBASIC users as modules with a 
good degree of source code protection 
because the source code cannot be de- 
rived from a module. Summit Soft- 
ware is currently selling an 8087 
module and expects to offer an inter- 
face module for the SoftCraft Btrieve 
system sometime this spring. 

Programs can be prepared for 
standalone execution with the MAKE 
PROGRAM command and the option- 
al Runtime System. The Runtime 
System consists of RUN.COM, 
RUN.$$$, and MKEXE.COM. RUN- 
-COM will execute any program that 
has been prepared with MAKE PRO- 
GRAM and MKEXE.COM appends 
the RUN.$$$ runtime library to a pro- 
gram file for stand-alone execution. 

Assembly language support is 
pretty straightforward with a very 
good example given in Appendix G of 
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the manual. The keyword CODE is 
used instead of BLOAD in order to 
load an assembler module into mem- 
ory at runtime. CODE? can be used to 
report the absolute load address if de- 
bugging is necessary. The assembly 
language procedure is then invoked 
by CALL procedurename(arglist) 
just as in GW BASIC. An assembly 
language module can contain one or 
more procedures with a Symbol Ta- 
ble at the beginning that defines the 
entry point for each procedure in the 
module. The excerpt from the Better- 
BASIC manual in the Listing (page 
116) will give the flavor of assembly 
language interfacing. 

Also worthy of note are the XREF 
command and the debug window. 
XREF generates a symbol cross-ref- 
erence of all user-declared identifiers 
and the line numbers on which they 
appear. Advanced programmers may 
wish to use the DOS debug program 
to test programs that are developed in 
BetterBASIC. If they start with DE- 
BUG B and then execute BetterBA- 
SIC inside DEBUG, the [Ctrl-PgUp] 
keys will exit to the debug prompt. 


Current Version 

The current version of BetterBASIC 
is 1.1. received the upgrade from 1.0 
to 1.1 during the review. New fea- 
tures supported include CHAINing 
and CALLing modules as overlays, 
communication between overlays via 
disk, SYStem calls for access to BIOS 
and DOS functions, and a SHELL 
command that can be used to execute 
programs (such as COMMAND- 
.COM) from within BetterBASIC. 
The new XMEM keyword allows data 
structures such as arrays up to the 
limits of system memory, not just 
64K asin v1.0. Also, the release notes 
describe bug fixes that were applied 
to this new version. 

Summit Software informs me that 
all registered users will be provided 
with free updates to v1.1, with a copy 
of the new documentation on the disk 
and an option to purchase printed 
documentation for $15. I also re- 
ceived test versions of the MATHI- 
-BNY and MATH2.BNY (single and 
double precision binary math) that 
are significantly faster than 
MATH.BCD, but less precise. By the 
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time you read this, both modules 
should be included in the standard 
BetterBASIC system in addition to 
the BCD math module. 


Benchmarks 

I compared the performance of Bet- 
terBASIC and GW BASIC by running 
Rich Malloy’s four BASIC bench- 
mark programs that I downloaded 
from the Byte bulletin board. These 
tests separate I/O from computation 
to give fairly accurate representa- 
tions of speed. With one exception 
(see Table 4, page 114), BetterBASIC 
was the better performer by far. The 
exception was in the floating point 
calculations, where the BCD math 
module was about 30% slower than 
GW BASIC. The new single precision 
binary math module ran about twice 
as fast. 

Round-off error can be of concern 
in business and financial program- 
ming. Although MATHI.BNY 
showed no error in this benchmark 
(compared to GW BASIC’s —1.788 
E—07 error), it is probably well worth 
the slower speed of MATH.BCD to 
have guaranteed zero error in finan- 
cial calculations. 

The Runtime System, unlike the 
BASCOM compiler, will not show an 
improvement in execution speed. This 
is because BASCOM generates native 
8086 code while MKEXE and RUN- 
COM only provide a stand-alone Bet- 
terBASIC environment to run the vir- 
tual-machine code that is produced by 
the MAKE PROGRAM command. 

These benchmarks were run on an 
IBM PC with 512K of RAM, 10Mb 
hard disk, and a monochrome display. 
I have also successfully run BetterBA- 
SIC on a Leading Edge PC/XT, a 
PCjr, and a Hyperion PC with no diffi- 
culty. 


GW BASIC Program Conversion 

To put it bluntly, there is no easy con- 
version from GW BASIC to BetterBA- 
SIC. There is a simple procedure out- 
lined at the end of the manual that 
involves editing an ASCII version of 
the original. The keywords SOURCE 
and ENDFILE are added at the start 
and end of the file for compatibility 
with BetterBASIC’s LIST ALL ASCII 
storage format. In addition, variable 

























































Starting At . 


$695.00 ; a 


CO-PROCESSING 


The most cost effective way for Z80 
system owners to obtain 16/32 bit 
processing power and software 
compatibility is via the HSC CO-16 
Attached Resource Processor. 


CO-16 is compatible with any Z80 
system running CPM 2.2 or CPM 3. 
A few examples include: 

e KAYPRO 2/4/10 © TRS 2/3/12/16 
e AMPRO LITTLE BOARD 

e HEATH 89 e SUPERBRAIN 

e XEROX 820 e TELEVIDEO 802/ 803 
e MORROW e EPSON QX-10 

e LOBO e OSBORNE 1/EXEC 

e CROMEMCO «e Plus many more 


CO-16 


Every CO-16 is delivered with 

e 16/32 bit micro processor ® 16 bit 
Operating System ¢ 256 Kilo RAM 

e Z80 interface * 16 bit RAM disk 
driver ¢ CPM80 2.2 RAM disk driver 
e CPM 2.2 or CPM 3 compatibility 

e sources with tools ¢ hardware 
diagrams ¢ board level or case with 
power supply. 


CO-1686 


The only Z80 16 bit co-processor 
includes ¢ INTEL 8086 © 6Mhz no 
wait states « MSDOS 2.11 © IBM 
BIOS emulator « Memory expansion 
to 768K ¢ 8087 math co-processor 

e 3-channel Real Time Clock ¢ Runs 
many IBM PC applications ¢ Shares 
hard disk space with CPM80 e PC 
diskette compatilibility on many 
systems e CPM86 e Concurrent 
CPM is coming. 


CO-1668 


The only Z80 16/32 bit co-processor 
includes © MOTOROLA 68000 
microprocessor * 6 Mhz no wait 
states e CPM68K e Full ‘‘C’’ com- 
piler with UNIX V7 library and floats 
e Memory expansion to 1.25 million 
bytes ¢ NS16081 math co-processor 
e Real Time Clock « Complete soft- 
ware development environment 

e 100% file compatible with CPM80 
e OS9/68 UNIX look alike coming 

in February. 


Dealer. Distributor and OEM’s invited 


Hallock Systems Company, Inc. 
267 North Main Street 
Herkimer, N.Y. 13350 
(315) 866-7125 
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declarations must be made at the 
start of the file. If you don’t declare 
the variables, they will be defined on 
use, but all integers will be defined as 
reals with the resultant loss of speed 
and precision that comes from the use 
of the real data type. 

I was able to convert with no diffi- 
culty trivial programs such as the 
Byte benchmarks, and one fairly 
lengthy musical program came over 
without much modification. Howev- 
er, large programs such as PC-TALK 
or RBBS-PC would be easier to re- 
write from scratch with BetterBASIC 
than they would be to convert. This is 
because of major philosophical dif- 
ferences in the use of procedures and 
the use of structures for file I/O rath- 
er than FIELDs in an I/O buffer. 
Conceptualiy, it would probably be 
easier to translate a Pascal or C pro- 
gram than an existing GW BASIC 
program. 

Refer to Table 3 for a complete 
summary of the differences between 
the two BASICs. 


The Documentation 
If there are two words that describe 
the BetterBASIC documentation, 
they are massive and thorough. The 
manual is an IBM-style 5% by 8-inch 
slip-cased binder with over 550 
pages! It is broken up into seven sec- 
tions: General Information, Intro- 
duction to BetterBASIC, Quick Ref- 
erence, Syntax Visuals, Appendices, 
and two new additions for vl.1— 
Chain/Overlays and Syscalls. 

The syntax visuals are comparable 
to the IBM BASIC manual with one 


BENCH1.BAS—write 64K bytes out to a file 
BENCH2.BAS—-read 64K bytes in from a file 
BENCH3.BAS—-5000 floating point operations 


BENCH4.BAS—calculate all primes from 1 to 7000 


or more pages in alphabetical order 
to describe each command and show 
examples of proper usage. The intro- 
ductory chapter is very well done 
with an excellent tutorial. It is geared 
to beginners, but will provide a re- 
fresher for experienced BASIC pro- 
grammers. It includes in the lesson on 
recursion a discussion of static versus 
dynamic storage of variables that will 
be useful to many microcomputer 
programmers. The presentation of 
variable scope and side effects in the 
procedure section will be helpful to 
those programmers whose only previ- 
ous experience is with other BASICs. 
Appendices include an ASCII code 
table, keyboard scan codes, inter- 
rupts, character sets, module usage, 
module defined statements, use of 
Assembler, error codes, and GW BA- 
SIC conversion hints. 


User Support 

Because Summit Software is still a 
small company, any phone calls in 
search of support will be handled by 
one of the program’s developers. This 
kind of direct access can be wonder- 
ful, especially when problems involve 
the more complex aspects of the sys- 
tem. There is no charge for phone sup- 
port for registered users and Summit 
can be reached during business hours. 


Complaints 

As in all new products, there is still 
room for improvement. My main 
gripe has to do with errors in the man- 
ual. Until I received my v1.1 upgrade, 
I could find no reference to the PUB- 
LIC keyword that is necessary for pre- 


14.6 
10.4 


30.2 


Table 4 


92.9(BCD) 
37.2(BNY) 


paring to MAKE MODULEs. There 
also seems to be some confusion when 
conceptual words from other lan- 
guages are used interchangeably with 
BetterBASIC keywords; structure and 
record are used in this fashion, al- 
though record is never defined to 
mean the same as structure. 

Some of the error codes that the 
compiler can generate are similar to 
the warnings of other compilers. I'd 
like to see the compiler add some of 
the missing parentheses that it can 
detect, rather than just notifying the 
programmer. Also, you cannot speci- 
fy a program on the command line to 
be executed by BetterBASIC. This 
precludes the use of BSETCLOCK to 
read your clock/calendar in an AU- 
TOEXEC.BAT file. 

There is no provision made for trac- 
ing program execution, as TRON/ 
TROFF are not supported. I hope the 
people at Summit are listening and 
provide a trace that, unlike GW BA- 
SIC’s primitive version, can also show 
variable contents, not just line num- 
bers. 

My final complaint has to do with 
price—there is a hidden cost that a 
potential developer must keep in 
mind. If you plan to market the soft- 
ware you develop with BetterBASIC, 
you will need to purchase the Run- 
time System for an additional $250 
so your customers will be able to run 
your program without the necessity 
of purchasing their own copy of 
BetterBASIC. 


Conclusions 
So who will find this package useful? 


BetterBASIC GWBASIC 


43.3 
29:4 
69.4 


208.1 


Performance Benchmarks (All times in seconds) 
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Probably not the C wizards and 
Forth gurus of the world. They will 
feel restrained by the line numbering 
and the lack of mysterious, syntactic 
constructions. Pascal programmers 
will feel right at home with proce- 
dures that have local variables and 
statements like READLINE. I think 
this package will find its place mostly 
among programmers who are cur- 
rently developing vertical market 
(i.e., business) software in BASIC. 

A large percentage of software 
that is created for vertical markets, 
such as insurance agencies, medical 
practices, video rental clubs, and ac- 
counting firms, is written in some 
form of the BASIC language. One 
reason that is often given for this dis- 
proportionate popularity is that BA- 
SIC is available in some form on most 
personal computers, thus providing a 
greater market when the software is 
ported to a new machine. However, 
because of the widespread availabil- 
ity of Pascal and C compilers for mi- 
cros in recent years, I think this rea- 
son is less important than the fact 
that much vertical market software is 
not developed by trained professional 
programmers. Often an accountant/ 
car salesman/real estate broker/ 
farmer who has learned a little BA- 
SIC on a personal computer realizes a 
need for some industry-specific piece 
of software. This combination of in- 
dustry expertise and programming 
experience can result in a very suc- 
cessful program. 

In the words of Ivar Wold, Sum- 
mit’s president, these people are 
faced with the “Pascal Dilemma”— 
they intend to learn Pascal or C but 
haven’t found the time for it yet. 
With this package, a BASIC pro- 
grammer will be able to write better, 
more maintainable code without the 
learning curve that is associated with 
learning a new language from 
scratch. After using BetterBASIC, it 
will be easy to pick up Pascal with 
very little effort, as all of Pascal’s 
concepts can be found in BetterBA- 
SIC. However, BetterBASIC may 
provide just the excuse never to have 
to learn a new language again. 
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Get the full range of features C pro- 
grammers working in UNIX™ have 
come to expect from their Lint and 
Make utilities. With Pre-C™ you can 
detect structural errors in C programs 
five times faster than you can with a 
debugger. Find usage errors almost 
impossible to detect with a compiler. 
Cross-check multiple source files and 
parameters passed to functions. Un- 
cover interface bugs that are difficult 
to isolate. All in a single pass. Capa- 
bilities no C compiler, with or without 
program analyzing utilities, can offer. 
Pre-C outlints Lint, since you can 
handle analyses incrementally. 


Pre-C’s flexible library approach lets 
you maintain continuity across all 
programs in your shop, whether you 
use Pre-C’s pre-built libraries, func- 
tions you already have, or some you 
might want to buy. 


Plus, you’re not limited to one partic- 
ular library. Pre-C keeps track of all 
the libraries you’re using to make 
sure that code correctly calls them. 

With Pmaker™ you can update and 
track every module in your program. 
When you make a change in any 
source or include file, all you do 


Make for MS*- DOS 








is run Pmaker. It will recompile 
changed modules and relink your 
program. With any compiler or linker 
you choose. Pmaker can update an 
object module library when one or 
several of the object modules are 
changed. You can use Pmaker to 
handle any task when a change 
requires several steps. 


Wile 





Pre-C by Phoenix. $395. Pmaker 
by Phoenix. $195. 

Call (1) 800-344-7200. 
In Massachusetts (617) 762-5030. 

Or, write: Phoenix Computer 
Products, Corp., 1420 Providence 
Highway, Suite 115, Norwood, 
MA 02062. 


PROGRAMMERS’ PFANTASIES BY PHOENIX 


Pre-C and Pmaker are trademarks of Phoenix Computer Products Corporation. 
MS-DOS is a trademark of Microsoft Corporation. UNIX is a trademark of Bell Laboratories. 
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Bet f er Basic Lis ting (Text begins on page 108) 





ssembly language interface to a BetterBASIC program 


3 
org 0 


:--- define the Symbol Table 


s¥mi db s¥ym2-t slink to next symbol table entry 

db “EXCHANGE” iname at the Procedure 

Cw fi stil] word ¢ MUST be here !'93 

Chiat headeri ipaointer toa Procedure header 
Syme db symi-$ slink to next symbol table entryr 

db Pri smame of the Procedure 

diy 0 stiil word ¢ MUST be here [!3 

diy header? ;pointer to Procedure header 
Syma db 0 soymboa!l Table Terminator 

even sheaders must be on 


: WORD ROU nodar ¥ 


headeri dw 134h ‘MUST be 1S4h 
Gi exchange ipointer to actual asm procedure 
Chiat Z snumber of Arguments 
chy i :type of argument O tIinteger3 
di 1 ;type of argument 1 (Integer) 
header? di ish ‘MUST be 134h 
cw till ;poainter toa actual asm procedure 
Gia Z snumber ot Arguments 
Ci 3 ;type of argument 0 (String? 
di 1 ;type of argument i (integer) 


; [hese are the procedures proper 


exchange proc tar ‘4UST be a tar proc 

; the EXCHANGE code 
ange endp 
i] proc tar 

; the FILL code 
44034 endp 

End Listing 
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/source debugger 
for lattice C 


Your time and convenience come 
gy first! The MSD C Debugger™ is the last, 
g and perhaps final, word in programming 


7 assistance for Lattice C users. C Debugger 
produces a high level view of C programs 
via function names, line numbers, variable 
names and C data types, plus a low-level view 
of machine addresses and instructions for 
testing assembler language functions. 
More features include: 
e All documentation is prepared for 
programmers. 
e Online help screen throughout the 
process. 
e Capability to single step 
through your program. 
e Set break points, examine registers and 
variables. 


$165.00 +$3.50 shipping 


To order, call or write: 

MICRO-SOFTWARE DEVELOPERS, INC. 
214142 W. Main St. « St. Charles, IL 60174 
312/377-5151 


Lattice C is a trademark of Lattice, Inc. 
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Every Issue Available 
For Your Personal Reference. 





We are pleased to offer this special discounted price to DDJ 
readers who order directly from us. From the nostalgia of 
Volume One—with authors like Steve Wozniak, Dennis 
Allison, Sol Libes, and more—to the technical maturity of 
Volume Seven, Dr. Dobb’s Journal Bound Volumes are 
the ideal addition to your reference collection. They con- 
tain many issues which are no longer available and you 
get twelve issues for the price of seven individual back 
issues! 

Send $26.75 for volume 1, $27.75 each for volumes 2-6, 
$30.75 for volume 7, or $165 for all seven and SAVE! 
Please add the following per book: $2.50 for UPS, $1.25 for 
U.S. Mail, or $3.25 for Foreign surface mail. Foreign Airmail 
rates available on request. Delivery times are one week for 
UPS or 6-10 weeks for U.S. or Foreign Mail. 


Mail to: DDJ, 2464 Embarcadero Way, Palo Alto, CA 94303 


Please allow 6-9 weeks for delivery. 103 
Please provide a street address rather than a P.O. Box. 
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The Tools 
‘S You Need 
To C You Thru. 


Now the W%ardWau Applications Programmers Toolkit provides 
everything you need to increase your C programming productivity. 


APT” features include: 
@ COMPLETE SOURCE CODE (over 5000 lines!) 
@ File handling with direct & keyed access 
@ Screen and Report Generators, with full screen handling for your programs 
@ Generic Terminal Driver for portable code 
® String math functions, and string manipulation routines 
®@ Reference Manual on Disk (over 50 pages) 
@ Tutorial Manual (over 25 pages) with Source for Mailing List Manager 
@ A host of useful Utilities, Database and File Editors 
@ Available for Lattice C, Mark Williams C, DeSmet C, BDS C, others. 


Also Available: C-STARTER Toolkit, great for learning C!! Includes: Customized 
APT, DeSmet C Compiler, and “Programming in C on the IBM-PC” (200 pages) 


ce 
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APT/MS-DOS Wereions:.. poo o. ea a oS SRS eS $495 fA 
2 PET CWO in 5 iiss ent craw a ES a a $395 = 

PR eas hy I ore ne ‘see, 2 Rn AE ae i eee $395 

C-Starter (binary APT, DeSmet Compiler and Book) ......... $295 

APPT aaa OG ie s's, 0 ns 9g bo v0 Ele oe Pe On we ae $ 50 


**Detailed Brochures on request** 
*Manual Cost will be applied if APT purchased within 
30 days ~ a? re- cmon | charge.) U.S. funds only, please. 


Co., DeSmet C/C Ware, CI-C86/Computer Innovations, Inc., BDS C/BD Software. 
+ American Tec hnologies. 


‘Call (502) 583-5527 
Ask for APT™ or C-Starter, or Send Check to: 


Shaw +: American Technologies 
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4 


re 830 South Second St. - Box 648 
| Louisville, KY 40201, USA 





(C.O.D. and Foreign Orders - Add $5 Shipping/Handling) 
References: Bank of Louisville, Citizens Fidelity Bank, Louisville Chamber of Commerce 
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Microprocessor 
Software Development 
on VAX gr PDP-11. 


You can develop software 
for Z80, 8080, 8085, NCS800, and 
8086 using native mode compilers and assemblers. 


Use low-cost cross tools for other micropro- 
cessors. Interface in-circuit emulators perfectly. You 
can run Intel development tools under ISIS or UDI. 

Our plug-in processor cards let you run CP/M-80, 
CP/M-86, or MS-DOS from any terminal on your 
VAX or PDP-11 system. 

Prices start at just $1295. Ask for our FREE 
catalog of 350 Bev eleinent and cross development 
tools. 





3375 Scott Blvd., Suite 236 
Santa Clara, CA 95054 


D@EANATIOM (408) 980-1678 


Registered Trademarks: VAX, PDP-Digital Equipment Corporation; CP/M-80,86 Digital 
Research; MS-DOS-Microsoft Corporation; ISIS; UDI-Intel. 
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16-BIT SOFTWARE TOOLBOX 


by Ray Duncan 


68000 Square Root 
Routine 


Jim Cathey of Spokane, Washington, 
writes: “‘To help [eliminate] the 
dearth of 68000 programming good- 
ies you were mentioning, here is an 
integer square root program. It takes 
only about 10—11 times as long to ex- 
ecute as a divide instruction. I found 
this algorithm a few years back in 
EDN .... 1 thought it was a nifty 
trick, and saved a clipping for when I 
needed it. Two muls instructions, one 
add.1, and this subroutine implement 
a true 16-bit vector length subrou- 
tine, in less than 2000 cycles (250 mi- 
crosec. at 8 MHz)! 

“The original program (and my 
first attempt) had a bug, in that the 
intermediate variables were half the 
size of the input data. This works until 
the last trip through the loop, where 
you may have overflow errors that 
could ruin the accuracy. For speed, 
the main loop could be unrolled using 
word intermediates for the first 15 
passes, and long on the last loop- 
equivalent. This should save some 
time if it’s a problem. Of course, if 
speed is really a problem, one of the 
approximations for vector length you 
presented a while back would be many 
times faster.” See Listing One (page 
122) for the source code for Jim’s 
68000 square root routine. 


MacFeedback 


Jim Howell of San Jose, California, a 
regular correspondent to DDJ, writes: 
‘I am writing regarding your recent 
rather disparaging comments (DD), 
December 1984, #98) on the Macin- 
tosh. I believe it is much too early for 
you to be forecasting the demise of 
the Mac. So ‘only’ 200,000 Mac’s 


were delivered in its first year. How 
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many IBM PC’s were delivered dur- 
ing its first year? And have you for- 
gotten that even a year after the IBM 
PC came out, people were still com- 
plaining about the lack of software 
for it? As for comparing the Mac’s 
‘lackluster sales’ with the Lisa, I 
would guess that there are already 
more Macs than Lisas. 

“One point I will agree on is the dif- 
ficulty of developing software for the 
Mac. If Apple really wants lots of 
software for it, they need to make the 
required technical documentation 
available (and at a reasonable price). 
Development tools (compilers and as- 
semblers) need to be able to run using 
a single Mac. There was an ad in 
Infoworld recently for a Mac assem- 
bler ‘that requires no other hardware 
or software.’ I don’t know much about 
the availability of other language pro- 
cessors for the Mac, though I suspect 
(and hope) that most of them will be 
usable with only a single Mac. As for 
‘weak, bug-ridden’ high-level lan- 
guages, again consider the IBM PC. 
That’s probably a fair description of 
many of the language processors that 
were available for the IBM PC during 
its first year. IBM’s Pascal compiler, 
for example, is atrocious. 

‘T also agree that a 68000 assem- 
bler should be able to run with 128K 
and one disk drive, but comparing 
that to the DRI 8080 assembler that 
ran in 32K is very unfair. 8080 as- 
sembly language is much simpler 
than that of the 68000. The 68000 
has more addressing modes, more in- 
struction formats, and its assembly 
language has a more complex syntax. 
Also, the DRI 8080 assembler must 
have been a bare-bones, absolute as- 
sembler. A bare-bones 68000 assem- 
bler could be written to run on a 64K 
CP/M system (but probably not on a 
32K system). A similar assembler 





should run, therefore, on a 128K 
Mac. However, I would assume that 
Apple does not want to put out just a 
bare-bones assembler. If, for exam- 
ple, the Apple assembler generates 
object code that can be linked with 
separately compiled or assembled 
modules, this would add considerable 
complexity to the assembler. 

“While a Mac assembler should be 
able to run in 128K, I don’t think it’s 
a big problem if it does not. Anyone 
doing serious software development 
on the Mac will have to have 512K 
(the next step after 128K) and two 
disk drives, even if some of the tools 
run in 128K. After all, how many de- 
velopers of IBM PC software have 
only 128K in their machines? And 
even fewer have only one disk drive. 

“T will be like the other readers who 
requested 68000 material and not 
submit any 68000 code. Like most of 
these readers (probably), I am inter- 
ested in the 68000, but do not actually 
have a 68000 system. Therefore, I also 
do not have any 68000 code to submit. 
With the attitudes expressed in your 
column about the 68000 (and about 
Intel’s 80286), one wonders whether 
you would want to include any 68000 
code or material anyway. 

‘Finally [in reference to another 
column on identifying IBM PC envi- 
ronments], location F000:FFFEH on 
my Corona contains OFEH, just like 
the PC/XT. Apparently, they want 
software to think it’s running on an 
XT, just in case a hard disk happened 
to be attached (yes, I do own an IBM 
compatible, though I like my 6809 
system better). The AT&T computer 
that we use at work has 00 (zero) at 
that location (the date in the ROM is 
05/03 /84).” 

This letter from Jim neatly illus- 
trates the polarization that the Mac 
has induced within the programming 
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community. There is a certain class of 
people who are dazzled by Apple’s 
“insanely great” publicity and will 
forgive the Macintosh anything. 
There is another group, among whom 
I guess I must number myself, who 
find Apple’s pretentious advertising 
and grandiose claims a little ridicu- 
lous, considering that almost every- 
thing that’s good about the Mac’s user 
interface was “borrowed” directly 
from the Xerox Star that has been 
around for ten years. Speaking of pre- 
tentious, see the recent Playboy inter- 
view with Steve Jobs for some amus- 
ing pronouncements, especially about 
us programmers over 30 years old. 

The fact is that everybody would 
find the sales of 200,000 Macs in the 
first year to be very remarkable, if 
Apple hadn’t spouted off all those 
projections about how it was going to 
build a Mac every 15 seconds in their 
new super MacFactory. To argue 
that the Mac has already sold more 
machines than the Lisa is not what 
you'd call a devastating rejoinder, 
since Apple has already thrown in the 
towel on the Lisa and reincarnated it 
as the Macintosh XL. 

As for the Macintosh assembler, I 
feel that I’m on very solid ground 
with my previous comments, having 
written several assemblers myself. 
The fact that the instruction set of 
the 68000 is powerful and extensive 
cuts both ways: of course it means 
that you have to worry about assem- 
bling more complex syntax, but it 
also means that you have a much 
more powerful language in which to 
write the assembler. Unless, of 
course, you are so bull-headed as to 
insist on writing your assembler in a 
high-level language like Pascal, 
which is completely unsuited to the 
job. Then you do end up with mon- 
strosities like the Apple Macintosh 
Assembler or the Microsoft 8086 
Macro Assembler. The proof of my 
contention has been conveniently 
provided by the product ““MacASM” 
from Mainstay of Agoura Hills, Cali- 
fornia. This is an integrated full 
screen editor, macro assembler, and 
resource compiler for the Macintosh 
that runs nicely in 128K and costs 
only $125.00. ““MacASM” is not copy 
protected and supports multiple 
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drives including hard disks. Mainstay 
can be reached at (818) 991-6540. 


MSDOS Device Drivers 


Stan Mitchell of San Jose, Califor- 
nia, writes: “I thought I would pass 
along a tool that comes in handy 
when working with MSDOS device 
drivers. It depends upon a useful 
property of the NUL device driver. 
Unlike other devices, it is embedded 
in the DOS module (IBMDOS.COM 
for the PC) and its device header is at 
the head of the device chain. By using 


the next device pointer in successive 
headers, the complete chain can be 
revealed. It is interesting that if any 
installed devices are present, the 
NUL header points to the first of 
these. When installed devices are ex- 
hausted, the link continues with the 
resident devices (contained in IBM- 
BIO.COM for the PC). 

“The only ‘trick’ in the program is 
using the OPEN function to return 
the device header pointer. This is an 
undocumented feature of MSDOS.” 

Readers, please note that the for- 
mat of the reserved area in the file 


CP/M-80 C Programmers ... 





ave time 





... with the BDS C Compiler. Compile, link 
and execute faster than you ever thought 


possible! 


If you’re a C language 
programmer whose patience is 


wearing thin, who wants to spend 


your valuable time programming 


instead of twiddling your thumbs 


waiting for slow compilers, who 
just wants to work fast, then it’s 


BDS C features include: 


e Ultra-fast compilation, linkage and 
execution that produce directly 
executable 8080/Z80 CP/M command 
files. 

A comprehensive debugger that 
traces program execution and 
interactively displays both local and 
external variables by name and 
proper type. 

Dynamic overlays that allow for run- 
time segmentation of programs too 
large to fit into memory. 


Plus... 


e A thorough, easy-to-read, 181-page 
user’s manual complete with 
tutorials, hints, error messages and 
an easy-to-use index — it’s the 
perfect manual for the beginner and 
the seasoned professional. 


time you programmed with the 
BDS C Compiler. 

BDS C is designed for 
CP/M-80 and provides users with 
quick, clean software 
development with emphasis on 
systems programming. 


e A 120-function library written in both ¢ An attractive selection of sample 
C and assembly language with full 
source code. 


programs, including MODEM- 
compatible telecommunications, 
CP/M system utilities, games and 
more. 


e A nationwide BDS C User’s Group 
($10 membership fee — application 
included with package) that offers a 
newsletter, BDS C updates and 
access to public domain C utilities. 


—— 


Reviewers everywhere have 
praised BDS C for its elegant 
operation and optimal use of 
CP/M resources. Above all, BDS C 
has been hailed for it’s remarkable 
speed. 


BYTE Magazine placed BDS 
C ahead of all other 8080/Z80 C 
compilers tested for fastest 
object-code execution with all 
available speed-up options in use. 
In addition, BDS C’s speed of 
compilation was almost twice as 


fast as its closet competitor 
(benchmark for this test was the 
Sieve of Eratosthenes). 


“T recommend both the 
and the implementation 
by BDS very highly.” 
Tim 
in Infoworld 
“Performance: Excellent. 
Documentation: Excellent. 
Ease of Use: Excellent.” 
InfoWorld 
Sortware Report Card 
“\..@ Superior buy...” 
Van Court Hare 


Don’t waste another minute on 
a slow language processor. Order 
your BDS C Compiler today! 


Complete Package (two 8” SSSD disks, 
181-page manual): $150 

Free shipping on prepaid orders inside 
USA. 

VISA/MC, COD’s, rush orders accepted. 
Call for information on other disk 
formats. 


Pugh, Jr. 


BDS C is designed for use with CP/M-80 
operating systems, version 2.2. or higher. It is 
not currently available for CP/M-86 or MS- 
DOS. 


in Lifelines/The Software 
Magazine 





BD Software, Inc. 
P.O. Box 2368 
Cambridge, MA 02238 
(617) 576-3828 
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Engineered for — 
Excellence 









We ‘he more into sth Davong DataSystem” 


so you can get more from your Personal Computer.* 
You are interested in more productivity. Davong designed the 
DataSystem for convenience, versatility, and reliability. 

Convenience is built-in. Like the package design that 
slips under your monitor. And installation that’s a snap. Put 
one adapter ina short slot. Connect one cable. Plug it in and 
go. And you don’t need to be an expert to use our software. 
Menu-driven programs with simple commands and on-line 
information put you at ease. 

Versatility is unsurpassed. DataSystem tape accepts 
true DOS commands (COPY, etc.) so you can make file-by-file 
backups. You can even run programs from tape. Or, back up 
entire disk volumes in minutes with our Tape Manager pro- 
gram. Your data speeds to tape at one million characters a 
minute. Just data. DataSystem doesn’t waste your tape space 
with non-data areas. And tape capacity is always guaranteed. 


*IBM® PC, XT, AT, and many compatibles 


IBM® is a registered trademark of International Business 

- Machines Corporation. 

Multi-OS®, Davong DataSystem™, and Davong MultiLink™ are 
trademarks of Davong Systems, Inc. 


Choose from 10, 21, 32 or 43-megabyte disk sizes plus 24 
megabytes of removable tape storage. Emulate an XT with 
Davong Fixed Disk software or enhance your computer’s 
performance with optional Davong Multi-OS® software. And 
Multi-OS readies the DataSystem for Davong MultiLink™ 
networking. 

Reliability is assured. Only fully- tested components 
are used in the DataSystem. Before it leaves quality control, 
each drive must pass days of rigorous system-level tests—and 
the rack. Each DataSystem must survive a torturous burn-in 
with no problems. Only then do we consider it good enough for 
your desk. 

If you have the Data, Davong has the System for you. 
Convenience, versatility and reliability. Why settle for less? 


See us at Comdex/Spring, Booth #3232. 


Da 


Davong Systems, Inc. 
217 Humboldt Court 
Sunnyvale, CA 94089 
Phone: (408) 734-4900 
Telex: 176386 
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control block is different under 
MSDOS 2.0 than it is under version 
3.0. Stan’s C program and the assem- 
bly language source for the —peek 
function are provided as Listing Two 
(page 122) and Listing Three (page 
125). 


Microsoft Assembler Bug 
of the Month 


Gregor Owen of Port Jefferson Sta- 
tion, New York, writes: “I don’t 
know if anyone’s still counting, but 
here’s my contribution for Microsoft 
Assembler bug of the month. In the 
assembly below, the code es:lodsb 
produces an error; however, the code 
below it, mov ax,es:[sit+1], produces 
an error too. If you comment out the 
es:lodsb, both errors disappear—so 
superior to the old-fashioned kind of 
assembler, where frequently the re- 
moval of defective code only removes 
errors in the vicinity of the defect. 

“At this point, I don’t really know if 
es:lodsb represents a legal operation. I 
don’t happen to have an Intel book at 
this location, and since every 8086/88 
instruction has a unique set of ad- 
dressing modes, it’s difficult to get any 
kind of feel for what’s allowed. Need- 
less to say, the IBM/ Microsoft assem- 
bler manual is not helpful. It’s true 
that if one comments out es:lodsb and 
assembles lods byte ptr es:[si+0] both 
errors disappear, but I don’t think 
anybody who’s used the Microsoft as- 
sembler for any short while would 
take any comfort from that. 

“And while we’re on the subject, 
notice the expressive elegance and 
beauty of the phrase 


lods byte ptr es:[si + 0] 


typical of the language Intel has pro- 
vided for us. The si+0, I concede, is 
something I’ve been doing ever since 
I managed to assemble some kind of 
complicated expression that had [si] 
in it—producing code that referenced 
[sit+OFFFFH] and didn’t generate an 
assembler error. Of course I probably 
don’t have to use si+0 in every ex- 
pression, but who wants to spend the 
time to find out? That’s the beauty of 
the language: every programmer, in 
order to produce stuff that works at 
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all, will develop a private dialect con- 
taining much myth and legend, thus 
making the source even more incom- 
prehensible than it is anyway. 

‘My personal theory about 8086/ 
88 assembly language is that what we 
have here is a marketing coup on the 
part of Intel. They had a ridiculous 
processor, with the traditional inept 
Intel approach to registers and ad- 
dressing. Somehow, they sensed it 
would be awfully embarrassing to ex- 
pose this thing in all the stark sim- 
plicity of their ‘lxi h,7’-type assem- 
bler [for the 8080 among other 
processors]. So they commissioned 
the finest, most convoluted, Pascal- 
ized minds in the software industry to 
come up with an assembler so grand 
and structured and incredibly intri- 
cate that no one would ever notice 
how awful the thing was for which it 
was assembling. Judging by the re- 
sults, they seem to have succeeded. 

‘““And those of us who labor in the 
vineyards of the information revolu- 
tion can’t be all too high-horsey 
about this: after all, the Intel /Micro- 
soft language makes it almost impos- 
sible for those pesky amateurs to fig- 
ure anything out, thus preserving the 
world of 8086/88 assembler for us, 
the elect: people paid to spend the 
necessary endless hours figuring out 
how to use the language and avoid 
the Microsoft bugs. A sort of ‘pro- 
grammer’s employment project’ for 
the new age.” 

Gregor’s program is provided as 
Listing Four (page 126). My unedu- 
cated guess, in this case, is that the 
Microsoft Assembler interprets the es: 
portion of the statement es:lodsb as 
the definition of a label named es. It 
then gives you the error message 
“symbol already different type,” since 
the name es is already hardwired into 
the symbol table as an assembler di- 
rective. All the other errors follow 
from the ensuing type conflicts. 


Fun with your PC/AT 


Assemble the following instruction 
sequence into a short assembly lan- 
guage program and execute it on the 
IBM PC/AT of your choice: 


mov bx,Offffh 


Pascal and C 


Programmers 


Your programs can 
now compile the 


FirsTime~ 


FirsTime is an intelligent editor that 
knows the rules of the language being 
programmed. It checks your statements 
as you enter them, and if it spots a 
mistake, it identifies it. FirsTime then 
positions the cursor over the error so 
you can correct it easily. FirsTime will 
identify all syntax errors, undefined 
variables, and even statements with 
mismatched variable types. In fact, any 
program developed with the FirsTime 
editor will compile on the first try. 





More than a syntax checker! 


FirsTime has many unique features 
found in no other editor. These powerful 
capabilities include a zoom command 
that allows you to examine the 
structure of your program, automatic 
program formatting, and block 
transforms. 


If you wish, you can work even faster 
by automatically generating program 
structures with a single key-stroke. This 
feature is especially useful to those 
learning a new language, or to those 
who often switch between different 
languages. 


Other Features: Full screen editing, 
horizontal scrolling, function key menus, 
help screens, inserts, deletes, appends, 
searches, and global replacing. 


Programmers enjoy using FirsTime. It 
allows them to concentrate on program 
logic without having to worry about 
coding details. Debugging is reduced 
dramatically, and deadlines are more 
easily met. 


FirsTime for PASCAL $245 
FirsTime for C $295 
Microsoft PASCAL Compiler $245 
Microsoft C Compiler $395 
Demonstration disk $25 


Get an extra $100 off the compiler when 
it is purchased with FirsTime. 
(N.J. residents please add 6% sales tax.) 


Spruce 


Technology Corporation 
110 Whispering Pines Drive 
Lincroft, N.J. 07738 
(201) 741-8188 or (201) 663-0063 


Dealer enquiries welcome. Custom versions 
for computer manufacturers and language 
developers are available. 


FirstTime is a trademark of Spruce Technology 
Corporation. 
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mov ax,[ bx] a hardware interrupt 13H. Alas (as 
Jerry Pournelle would say), this in- 
terrupt is already used by the IBM PC 
ROM BIOS for the disk driver. So 
when your program accidentally gen- 
erates a segment wrap fault, it traps 
to the disk driver with nonsense pa- 
rameters in the registers and proba- 
bly writes garbage all over your nice 


The system dies immediately. The 
Same sequence of instructions will run 
just fine on an 8086 or 8088-based 
machine. What is happening here? 

It turns out that on the 80286, ac- 
cessing a word operand at offset 
OFFFFH, i.e., a segment wrap, causes 


hard disk. This kind of phenomenon, 
when we move a previously happy 
program from an IBM PC to a PC/AT 
and watch it go to heaven, helps us 
while away those rainy afternoons. 


DD] 
Reader Ballot 


Vote for your favorite feature/article. 
Circle Reader Service No. 196. 





16-Bi f Toolbox (Text begins on page 118) 
Listing One 


Integer Square Root (32 to 16 Bit) 
(Exact method, not approximate) 


Call with: 
DO.L = Unsigned number 


Returns: 
DO.L = SQRT (DO.L) 
D1.L <> 0 if not exact root 


wWeeeeeeeenaegayge He eee HeHeHe He Se 


Uses: 
D1-D4 as temporaries --- 
Dl = Error term 
D2 = Running estimate 
D3 = High bracket 
D4 = Loop counter 
Notes: 

Result first in DO.W, but is valid in longword. 
Takes from 1480 to 1832 cycles (including RTS). 
(Word version is from 548 to 660 cycles). 

sqrt move.w #15,da4 ; Loop count (bits-1 of result) 
moveg #0,dal ; Result in Dl 
moveq #0,da2 

sqrtl asl.l #1,da0 ; Get 2 leading bits at a time and 
roxl.1l #1,da1 ; into Error term for extrapolation. 
asl.l #1,da0 ; (Classical method, easy in binary) 
rox. t #1,dl 
asl.l #1,da2 ; Running estimate * 2 
move.l d2,a3 
asl.l #1,a3 
cmp.1 a3,ai 
bls sqrt2 ; New error term > 2* running est.? 
addq.1l #1,da2 ; Yes, we want 1 bit then. 
addq.1l #1,a3 ; Fix up new error tern. 
sub.1l o3;ai 

sgqrt2 dbra d4,sqrtl ; Do all 16 bit-pairs. 
movel da2,da0 ; Returns answer in DO.W 
rts 


Listing Two 


End Listing One 


"C" source code for Stan Mitchell's program to dump the device driver chain. 


1 EBERT EEEEEBEE 
2 ¥ dd dump.c program for displaying device driver chain # 
3 * for DOS 2.00, 2.16,3.00 # 
4 * + 
5 * by stan mitchell . november 21,1984 # 
6 # Lattice Cv. 1.04 * 
7 JHEHEEHEHH HEHEHE SEES / 
8 


9 #define void 
10 #define byte 
11 #include 
12 


int 
char 
"stdio.h" 
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FULL SCREEN SYMBOLIC DEBUGGER 


“THE SINGLE BEST DEBUGGER 
FOR CP/M-SO. A TRULY 
AMAZING PRODUCT.” 


LEOR ZOLMAN 
AUTHOR OF BDS C 


| ' Complete upward compatibility with DDT 
' | Simultaneous instruction, register, stack & memory displays 


'’ Software In-Circuit-Emulator provides write protected memory, 
execute only code and stack protection. 

(| Full 280 support with Intel or Zilog Mnemonics 

| Thirty day money back guarantee 
On-line help & 50 page user manual 


ONLY 125. 
—SOFTADVANCES — 


P.O. BOX 49473 AUSTIN, TEXAS 78765 (512) 478-4763 


= 


__VISA | 
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FOR THE SERIOUS KAYPRO® USER 


THE DISKIT | 
SERIES OF @ | = 
DRIVES - 


ae, 
















now with ZECPR3 

Now you can add from 5 to 40 Megabytes of fast-access Winchester 
storage to your KAYPRO 2, 4, or 10. The DISKIT is only 4 inches high; 
5.7 if you get the two drive model with the removable 5 or 10 Mb. 
cartridge, and weighs less than 10 pounds. Easily disconnect DISKIT 
from the computer whenever you want, and if more capacity is required, 
just swap your drive for a larger model. 

Our DISKIT Model 10 has 10.8 Megabytes of formatted capacity... 20% 
more than a Kaypro 10, and runs about twice as fast. Installs in minutes. 


Call SPC now and ask for more information. Quantity and prepayment 
discounts are available. 


SYSTEMS PERIPHERALS CONSULTANTS 
9747 Business Park Avenue 
San Diego, CA 92131 
(619) 693-8611 
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RUN/C:” 
The Affordable C 
Interpreter 


Available NOW for only $149.95! 


Finally, a painless introduction to 
the C language. With RUN /C: 
The C Interpreter you 
can create and run C language 
programs in an environment as 
easy to use as BASIC. 


RUN /CisC for the rest of us. 
It is arobust implementation of 
standard K&R. RUN /C is for 
both the beginner and profes- 
sional. 


RUN /C includes full floating 
point, 8087 support, structures, 
unions, casts and more than 100 
built-in C functions. 


With RUN /C you get all this 
with acommand structure mod- 
eled after BASIC’s using familiar 
terms such as EDIT, RUN, LIST, 
LOAD, SAVE, TRON, SYSTEM, etc. 


Since RUN /C is a true inter- 
preter it means that C programs 
can be written, tested and run 
within a single protected envi- 
ronment. Itis a teaching tool and 


a source code debugger. 


Here’s more good news... 


e Great documentation: a 400- 
page, easy-to-read manual 
filled with executable 
programs 

e Array-index and pointer 
bounds checking 

e Variable-trace and dump 
diagnostics PLUS an integral 
program profiler 

e Full buffered and unbuffered 
file 1/O 

e Printer and asynch support 

e Forking to your favorite full 
screen editor with automatic 
return to RUN /7C with 
your edited program 

e System Requirements: 

IBM® PC or compatible with 
PC-DOS 2.0 or MS™-DOS 2.0 or 
greater with ANSI.SYS. 


Get things right the first time 
with RUN /C: 
The C Interpreter.™ 


For immediate delivery or more 
information, call: 


1-800-847-7078 
(in NYY. 1-212-860-0300) 
or write: Lifeboat Associates™ 


1651 Third Avenue 
New York, NY 10128 
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TURBO 
GRAPHICS™ 


for use with 


Borlands Turbo Pascal™ 








A comprehensive set of Pascal 
procedures and binary routines 
that includes most of the 
graphics capabilities found in 
BASICA in addition to several 
new graphics routines. 


MAJOR FEATURES 


(on medium resolution 
graphics screen) 


@ Draw large letters, circles, 
and lines in color. 


@ Create complicated graph- 
ics using DRAW “macros”. 


@ Create and use WINDOWS 
non-destructively. 


M Paint enclosed areas. Get 
and Put screen memory. 


@ Scroll any portion of the 
screen up or down. 


@ Use the font editor to create 
letters and graphics 
characters. 


M@ Combine features to create 
interesting animations. 


Catalog Numbers: 
UTIL-100-IBM PC $39.95 


UTIL-100-IBM PCjr — each 
Shipping and Handling: 
$5.00 each 


| 
| 


=D 


Diversified Educational Enterprises, Inc. 
725 MAIN STREET 
LAFAYETTE, IN 47901 
317-742-2690 
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16-Bi f Toolbox (Listing Continued, text begins on page 118) 
Listing Two 


/* DOS function calls *#/ 


#define 
#define 
#define 
extern 


struct 


struct 


struct 


struct 


struct 
struct 


struct 
struct 


main() 
( 
int 


OPENFCB 
CLOSEFCB 
VERSION 


OxOf 
Ox1@ 
6x39 


int _peek(); 


DEVHDR 

( 
unsigned 
unsigned 
unsigned 
unsigned 
unsigned 


char 
); 


FCB 

{ 

byte 
char 
unsigned 
unsigned 
long 
unsigned 
byte 
byte 

5 


RSV2_X 

{ 
unsigned 
byte 
unsigned 
unsigned 
byte 

5 


RSV3_X 

{ 
unsigned 
unsigned 
unsigned 
unsigned 
byte 

5 


DEVHDR 
FCB 

RSV2_X 
RSV3_X 


dev_off, 


initfcb(@, "NUL 


{ 


nxthdr_off; 
nxthdr_ seq; 
attr; 
strat; 
intrpt; 
dname[8); 


drive; 
fnameli1]; 
curblk; 
recsiz3 
fsize; 

date; 

sys rsv[1@); 
bset(5]; 


times 
attribute; 
dhdr_off; 
dhdr_ seq; 
unk(3); 


time; 
attribute; 
dhdr_off; 
dhdr_seg; 
unk(2]; 


device; 
device fcb; 
#dos2x3 
¥dos3x3 


dev_seq,i, j3 


/* doubleword ptr to next device hdr in chain */ 


/* type of device driver */ 

/* device strategy entry point #/ 
/* interrupt entry point #/ 

/* device name #/ 


/* drive desiqnator */ 

/* file or device name */ 

/* current bik (set to @ by QPENFCB) #/ 

/* logical record size (set to @x8@ by OPENFCB) #/ 
/* file size in bytes #/ 

/* creation or last update date */ 

/* fields reserved for DOS */ 

/* relative record numbers */ 


/* creation or last update time */ 

/* device or file attribute */ 

/* offset address of device header */ 
/* segment address of device header */ 
/* unknown usage */ 


/* creation or last update time */ 

/* device or file attribute #/ 

/* offset address of device header */ 
/* seoment address of device header #/ 
/* unknown usage #/ 


/* device header #/ 

/* standard FCB for device */ 

/* preserved field definitions DOS 2.x #/ 
/* reserved field definitions DOS 3.x #/ 


“); /*® set up standard FCB for NUL device #/ 
if (bdos(OPENFCB, &device fcb) & Oxff) /* open the device #/ 


printf("Unable to open device\n"); 


exit(l); 
} 


if ((bdos(VERSION,@) & @xff) == 3) 
{ /* the reserved fields are allocated differently in DOS 3.x #/ 
dos3x=(struct RSV3_X #) &device_fcb.sys rsv(O); 


dev_off=dosax->dhdr_off; 
dev_seg=dos3x->dhdr_seq; 


) 


else if ((bdos(VERSION,®) & @xff) == 2) 


( /* se 


» than they were in DOS 2.x #/ 


dos2x=(struct RSV2_X #) &device_fcb.sys rsv[@]; 


dev_off=dos2x->dhdr_off; 
dev_seg=dos2x->dhdr_seg; 
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86 “id 


87 else 

88 ( /* forget it for DOS 1.16 or earlier *#/ 

89 printf (* DOS 2.0@ or newer required\n"); 

8 exit(1); 

91 } 

92 

93 printf(" Device driver chain .... \n"); 

94 printf("\n"); 

95 

96 /* display the current DOS chain of device drivers #/ 

97 printf(" ptr type name strategy ptr interrupt ptr \n"); 

98 

7 for tes) 

160 { 

1@1 printf("7.04x:204x ",dev_seg,dev_off); /* device header ptr */ 

102 if (dev_off == Oxffff) break; /* if last in chain, offset=Oxffff #/ 
103 /* move the device header into the data segment structure “device” #/ 

104 _peek(dev_seg, dev_off, kdevice, sizeof (device) ); 

195 printf(" 204x "“,device.attr); /* display the device attribute word *#/ 
106 if ((device.attr & @x8040) == @) /* if a block device ... */ 

107 for ( j=@; j<=33 j++) printf("2@2x", device. dnamel jJ); /* there is no device name */ 
18 else 

169 for ( j=@s j<=73 j++) printf("hc", device. dnamel j]); /* otherwise display device name #/ 
110 

iit printf(” 7.04x: 7.04 ",dev_seq,device.strat); /# strateaqy entry point */ 
112 printf("7.04x:704x  \n",dev_seg,device.intrpt); /* “interrupt” entry point */ 
113 dev_seg=device.nxthdr_seg; /# set up ptr to next device header */ 

114 dev_off=device.nxthdr_off; /# and loop back to display it */ 

M15 ) 

116 

117 } 

118 

119 /* initialize standard FCB */ 

120 void initfcb(drv,name) 

121 byte drv; 

122 char name( J; 

123 { 

124 int is 

125 

126 device fcb.drive=drv; /* drive designation: default drive=@, Aql, etc. #/ 

127 for (i=@:i<=1@;i++) device fcb.fnamelil=namelil; /* device or file name */ 

128 for (i=@;i<=4;i++) device fcb.bsetlil=@; /* fields not zeroed by open call */ 
127 } 

136 End Listing Two 


Listing Three 


Assembly language source for " peek" library function, 
used in Stan Mitchell's device driver dump progran. 


PAGE 
PAGE 62,132 
NAME peek 


SEEEPEEERSASRERLE REL ERA EE REE REL ER ERLE REAR EAE RARE EE SEER REES REAR ESERES ERS 


-—e we 


void _peek(seqnent, offset, buffer, nbytes) 


unsigned segment; /# segment portion of memory addr */ 
unsigned offset; /* offset portion of memory addr */ 

byte *buffer; /* Jocal memory buffer (in data segment) */ 
unsigned nbytes; /* number of bytes to transfer #/ 


we we we 2e we 


we we 


Lattice C assembly language interface convention followed 


: (ES=DS on entry) 
HEHEHE HEHEHE HHH HSH HHH 


; 
= EXTRA EQ 4 
4 
PGROUP GROUP PROG 
o0ee PROG SEGMENT BYTE PUBLIC ‘PROG’ 
PUBLIC _PEEK 
ASSUME CS:PGROUP 


(Continued on next page) 
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16-Bit Toolbox 


Listing Three 


0000 

0000 55 
0061 8B EC 
0003 1E 
0004 56 
0005 57 
6606 51 


0007 SE SE 04 
GOOA 8B 76 06 
60@D 8B 7E @8 
0616 8B 4E OA 


@@13 F3/ A4 


15 59 
0016 
@017 SE 
€018 IF 
0619 SD 
1A C3 
@01B 

0018 


Listing Four 


Gregor Owen's Microsoft Assembler Bug of the Month. 
Assemble this brief program for some entertaining error messages, 
then comment out the line "es:lodsb" and assemble it again. 


microwiff segment 


assume cs:microwiff,ds:microwiff,es:microwiff,ss:microwiff 


microwimp: 
es:lodsb 
lods 
mov 

microwiff ends 


end 


126 


_PEEK 


_PEEK 


(Listing Continued, text begins on page 118) 


PROC NEAR 

PUSH = BP : 

MOV BP , SP ; 

PUSH = 1S : 

PibH: - SI : 

PUSH =O : 
4 


PUSH = CX 


’ 

;get source segment 

MOV DS,WORD PTR (BP+EXTRAJ 

; 

sget source offset 

MOV SI,WORD PTR [BP+EXTRA+2]) 
; 

sget destination offset in ES 
MOV DI,WORD PTR (CBP+EXTRA+4] 


;get byte count for transfer 
MOV —sCX, WORD PTR CBP+EXTRA+6) 


: 
smove the butes into local buffer 
REP MOVSB 


s 
$ 


POP CX : 
POP DI ; 
POP S$] : 
POP DS : 
POP BP : 
RET : 
ENDP 
ENDS 
END 


byte ptr es: [si+0] 
ax,es:[(sit+l] 


microwimp 


End Listing Three 


End Listings 
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S & Advanced 





® 


Trace86"™ 


Symbolic Debugger & Assembler Combo 


Full-screen trace with single stepping; 
Even backstepping! 


Write & Edit COM & EXE programs 
Conditional breakpoints (programmable) 


Switch between trace and output screen; 
Or set up two monitors 


8087, 80186, 80286, 80287 support 
Write labels & comments on code 
Polish hex/decimal calculator 
and more... Priced at $175.00 


To order or request more information contact: 


: M Morgan Computing Co., Inc. 


P.O. Box 112730, Dallas, TX 75011 
(214) 739-5895 


CONTROL 


p 












WRITE IT — RUN IT — ROM IT 
Asingle board computer development and control system that 
is so simple to use, you will be developing applications pro- 
grams the first day! 


* Choice of Basic or FORTH * Onboard EPROM programmer for 
in ROM complete program development 









* 8 channel, 8 bit analog to 
digital converter 


* RS-232 terminal and parallel 
printer port for program entry 








* Two 8 bit input ports 
Two 8 bit output ports 


* 7 current sinking outputs rated 
at 500 mA, 50 VDC 










* Time of day 
* 8088 16 bit uP 


* Up to 32 K of user memory 








* Assembled and tested $279 
Kits start at $79 


MasterCard and Visa accepted 


Vesta Technology, Inc. 7100 W. 44th Ave. Suite 101 
Wheat Ridge, CO 80033 (303) 422-8088 


Circle no. 124 on reader service card. 


BYSO LISP 


has features that will delight 
both beginners and advanced 
programmers. A fast, reliable 
and complete interpreter for the 
IBM PC and true compatibles. 
$125 includes 100 pg. ref. 
manual and application notes 
that put you months ahead on 
useful projects (making a hybrid 
language with C, accessing 
system functions and I/O ports, 
building your own dialect, etc.). 


















LEVIEN INSTRUMENT CO. 


P.O. Box 31B 
McDowell, VA 24458 
703-396-3345 


IBM PC is a trademark of the IBM Corp. 









Circle no. 25 on reader service card. 














PERFORMANCE ACCELERATORS 
FOR CP/M-80 & MP/M-80 


WSOPTION for WORDSTAR 3.0 & 3.3 (installs itself 
right into WordStar) 


FAST 
Speeds up action of WordStar functions so you spend 
less time waiting for WordStar to take action on your 
commands. 
PRODUCTIVE 

A superior print-while-edit capability is included. You 
can now use one terminal or micro to edit one file while 
printing another without reducing your typing speed! 


CONVENIENT 
At print time you can select 1 of 4 printers under CP/M 
or 1 of 8 printers under MP/M. Under MP/M you do a 


proper attach and detach of the printer so it is always 
free when you are not using it. You are informed if the 
printer is in use at print time so you do not hang up. 
Many additional features installed via menu. 


MPMPLUS for MP/M-80 
A group of programs and modules designed to im- 
prove your console and disk response under MP/M-80. 
A performance increase of 2 to 3 times is usual for 
disk 1/0. 
Send $35.00 for each item plus $2.00 postage. 


INCLUDE DISK FORMAT REQUIRED 
Continuum Microsystems Ltd. Use your Visa 
21 McCarty Crescent or M.C. 
Markham, Ontario 
Canada L3P 4R4 (416) 294-8536 
WordStar reg. MicroPro, CP/M MP/M reg. D.R.I. 





Circle no. 29 on reader service card. 


I a PROMPT DELIVERY!!! 


SAME DAY SHIPPING (USUALLY) 
OUTSIDE OKLAHOMA: NO SALES TAX 


DYNAMIC RAM 
256K 256Kx1 150 ns 
64K 64Kx1 120 ns 
64K 64Kx1 150 ns 
64K 64Kx1 200 ns 

EPROM 
27C256 32kx8 250 ns 
27256 32kx8 250 ns 
27128 + 16Kx8 250 ns 
27C64 8Kx8 200 ns 
2764 8Kx8 250 ns 
2732A 4Kx8 250 ns 
2716 | 2Kx8 450 ns 

STATIC RAM 
6264LP-15 skxs 150 ns 
6116LP-3 2kxs 150 ns 


OPEN 6% DAYS: WE CAN SHIP VIA FED-EX ON SAT. 
MasterCard/VISA or UPS CASH COD 
Factory New, Prime Parts Poo 
MICROPROCESSORS UNLIMITED 
24,000 S. Peoria Ave., BEGGS, OK. 74421 (918) 267-4961 


Prices shown above are for March 26, 1985 
Please call for current prices. Prices subject to change. Please expect higher or lower prices on 
some parts due to supply & demand and our changing costs. Shipping & insurance extra. Cash 
discount prices shown. Orders received by 6 PM CST can usually be delivered to you by the 
next moming, via Federal Express Standard Air @ $6.00; Priority 1 @ $11.50! 


QUANTITY ONE PRICES SHOWN 
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CONSUME NO EXPANSION SLOTS! $123.86 





Circle no. 64 on reader service card. 


IN-CIRCUIT EMULATOR 
For 8050, 8049 and 8048 IC’s 





OR EIS TR CS 
#25 £2 CR. EO 

S38 3 Ts SS 

ena 


3 3 “SA ES 
PPS reerrrerrpreriaes 


For Hardware/Software Design the E232-48 
replaces the target microcomputer for complete 
emulation under control of the host computer. 
It emulates all of the above uC’s plus their 
ROM-less and CMOS versions. It’s features are: 

* Real time emulation up to 11 Mhz. 

* Full 4K Emulation Memory. 

*% Hardware Breakpoints. 

* In-line Assembler and Disassembler. 

* Upload, Download & Terminal mode drivers 

for |BM-PC, CP/M-80 and CP/M-86 are included. 

Cross Assemblers for 8048 series and other uP’s 
running on the above host systems-From........... $150 


SIGNUM SYSTEMS 


726 Santa Monica Blvd. 
Santa Monica, CA 90401 (213) 451-5382 


Circle no. 106 on reader service card. 































P.O. Box 2412 Columbia, MD 21045-1412] 





No source code for 


your REL files? 
; REL/MAC i 
f converts a REL file in the Microsoft™ 


# M80 format to a ZILOG™ or 8080 source 
x code MAC file with insertion of all public 
% and external symbols. 








t @ REL/MOD lists library modules 

5 e REL/VUE displays the bit stream 

. e@ 50 page manual with examples 

@ free brochure available 

t @ REL/PAK includes all of the above 

$= REL/PAK for 8080 only ............... 

t REL/PAK for Z80 & 8080 ............. $134.95 
t on 8"SSSD disk for CP/M™ 2.2 


Send check, VISA, MC or C.O.D. to 


[SE MicroSmir 


COMPUTER TECHNOLOGY 


PO. BOX 1473, ELKHART, IN 46515 
1-800-622-4070 
(Illinois only 1-800-942-7317) 


Circle no. 41 on reader service card. 


Users’ 
Group 


Over 40 volumes of public 
domain software including: 


® compilers 

e editors 

e text formatters 

® communications 
packages 

e many UNIX-like tools 


Write or call for more details 


The C Users’ Group 
415 E. Euclid * Box 97 
McPherson, KS 67460 

(316) 241-1065 





Now With Windowing! 
$49.95 Basic Compiler 


MTBASIC 


Features: 
Multitasking §Windowing 
Handles interrupts Interactive 
Fast native code Compiles quickly 
Floating point No runtime fee 

















MTBASIC is a true native code compiler. It runs Bytes's Sept. 
‘81 seive in 26 seconds; interpreters take over 1400 seconds! 
Because MTBASIC is multitasking, it can run up to 10 Basic 
routines at the same time, while displaying ten separate win- 
dows. Pop-up/down menus are a snap to implement. 


MTBASIC combines the best of interpreters and compilers. To 
the programmer, MTBASIC appears to be an extremely fast 
interpreter. MTBASIC compiles a typical 100 line Basic pro- 
gram in 1 second, yet it generates blindingly fast code. No 
more waiting for long compiles. 


AVAILABLE for CP/M (Z-80) and PC-DOS systems. 


ORDERING: Specify format when ordering. We accept Visa, 
MC, checks and COD. Send $49.95 plus $3.50 shipping and 
handling ($10 overseas) to: 


SOFIAID, Inc. 









301/792-8096 _ 


Circle no. 88 on reader service card. 
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FOR THE 
es 
Lae 


THE PREMIER LANGUAGE 
Eee 
Seale eee 

YOUR IBM PC. 


DATA TYPES 

Lists and Symbols 
Unlimited Precision Integers 
Floating Point Numbers 
Character Strings 
Multidimensional Arrays 
Files 

Machine Language Code 


MEMORY MANAGEMENT 
Full Memory Space Supported 
Dynamic Allocation 
Compacting Garbage Collector 


FUNCTION TYPES 
EXPR/FEXPR/ MACRO 
Machine Language Primitives 
Over 190 Primitive Functions 


10 SUPPORT 

Multiple Display Windows 
Cursor Control 

All Function Keys Supported 
Read and Splice Macros 
Disk Files 


POWERFUL ERROR RECOVERY 
8087 SUPPORT 

COLOR GRAPHICS 

LISP LIBRARY 


Structured Programming Macros 
Editor and Formatter 
Package Support 
Debugging Functions 
OBJ File Loader 
M@ RUNS UNDER PC-DOS 1.1 or 2.0 


Cee ee eee 
lQLISP 
5¥%’’ Diskette 
and Manual 
Manual Only 





$175.00 
$ 30.00 


fe q Integral Quality 


P.Q. Box 31970 
seattle, Washington 98103-0070 
(206) 527-2918 


Washington State residents add sales tax. 
VISA and MASTERCARD accepted. 
Shipping included for prepaid orders. 
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They said it couldn't be 
Borland Didlt. Turbo Pascal 


The industry standard TURBO TURBO MS The best just got better: 
With more than 250,000 users worldwide Turbo 3.0 2.0 PASCAL Introducing Turbo Pascal 3.0 


Pascal is the industry's de facto standard. Turbo 
Pascal is praised by more engineers, hobbyists, 
students and professional programmers than any 
other development environment in the history of 
microcomputing. And yet, Turbo Pascal is 
simple and fun to use! 





We just added a whole range of exciting new 
features to Turbo Pascal: 








e First, the world’s fastest Pascal compiler just got 
faster. Turbo Pascal 3.0 (16 bit version) compiles 
twice as fast as Turbo Pascal 2.0! No kidding. 

e Then, we totally rewrote the file I/O system, and 
we also now support 1/0 redirection. 

e For the IBM PC versions, we've even added 


COMPILATION SPEED “turtle graphics” and full tree directory support. 
e For all 16 Bit versions, we now offer two addi- 
EXECUTION SPEED tional options: 8087 math coprocessor support 
for intensive calculations and Binary Coded 
CODE SIZE Decimals (BCD) for business applications. 


e And much much more. 


BUILT-IN INTERACTIVE EDITOR The Critics’ Choice. 


Jeff Duntemann, PC Magazine: “Language 









a Sac By as deal of the century. . . Turbo Pascal: It 
introduces a new programining environment and 

COMPILER SIZE runs like magic.” 

Dave Garland, Popular Computing: ‘Most 

TURTLE GRAPHICS Pascal compilers barely fit on a disk, but Turbo 
Pascal packs an editor, compiler, linker, and run- 

BCD OPTION time library into just 39K bytes of random- 

2 access memory.’ 

PRICE Jerry Pournelle, BYTE: ‘What | think the 
computer industry is headed for: well 
documented, standard, plenty of good features, 

as Se be and a reasonable price.” 
Portability. A DOS inker eon 26. The {79 line Soe med ote caste 
Turbo Pascal is available today for most com- Seidel” program out of Alan R. Miller’s book: Pascal programs for 
puters running PC DOS, MS DOS, CP/M 80 or scientists and engineers (Sybex, page 128) with a 3 dimensional 
CP/M 86. A XENIX version of Turbo Pascal will non-singular matrix and a relaxation coefficient of 1.0. 


soon be announced, and before the end of the 
year, Turbo Pascal will be running on most 68000 
based microcomputers. 


An Offer You Can’t Refuse. 


Until June ist, 1985, you can get Turbo Pascal 3.0 
for only $69.95. Turbo Pascal 3.0, equipped with 
either the BCD or 8087 options, is available for an 
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e Bes! it 
additional $39.95 or Turbo Pascal 3.0 with both options es! set me Pua 
for only $124.95. As a matter of fact. if you own a 16- piease™ 6098 
Bit computer and are serious about programming, you pascal 3.0 go 
might as well get both options right away and save cal w/8087 — C—O 
almost $26. pas 31 iC $1099 4 
pasc@ " BCD 
4 pe | g087 & 4.90) ae 
Update policy. — A rt 184 6.008 Pasr24 95 ONE ude SPP - 
As always, our first commitment is to our customers. wine iS: —pc-DOS — MPI M 8° “These eb ordered 
You built Borland and we will always honor your support. | Use? —~ CP/M a jmodel 'S a $10 per Pe a 
n Oo 
So, to make your upgrade to the exciting new version of ay computers suototal OP ot ae 
Turbo Pascal 3.0 easy, we will accept your original Turbo OE ow yee" ap 
____ Pascal disk (in a bend-proof container) for a trade-in credit ne disk SIZ t Enclose® Ban ee = 
____ 0f $39.95 and your Turbo87 original disk for $59.95. This 
____ trade-in credit may only be applied toward the purchase of 
Turbo Pascal 3.0 and its additional BCD and 8087 options ee 
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ide-in offer is only valid directly through Borland and until er address 
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